[VA] SRC #008 - 2021 is here !

[robve]

My solution for #1 is in my earlier post with the non-CAS program listing, followed by the full number printed with HP Prime CAS. But if you really can't accept the number printed with HP Prime CAS, then below is a simple non-CAS program to produce the full decimal result as a list of digits:


EXPORT POWER3()
BEGIN
  L0:=MAKELIST(0,I,1,322);
  L0(SIZE(L0)):=2;
  FOR N FROM 1 TO 673 DO
    L1:=L0;
    FOR T FROM 1 TO 2 DO
      C:=0;
      FOR I FROM SIZE(L0) DOWNTO 1 DO
        D:=L0[I]+L1[I]+C;
        IF D>9 THEN
          D:=D-10;
          C:=1;
        ELSE
          C:=0;
        END;
        L0[I]:=D;
      END;
    END;
  END;
  PRINT(L0);
END;