CLS
INPUT N
DIM A(1000)
A(1) = 2
FOR I = 1 TO N
  C = 0
  FOR J = 1 TO 1000
    X = A(J) * 7 + C
    C = X \ 10
    A(J) = X MOD 10
  NEXT J
NEXT I
K = 1000
DO WHILE A(K) = 0
  K = K - 1
LOOP
FOR I = K TO 1 STEP -1
  PRINT USING "#"; A(I);
NEXT I

公式
a=2
a=a*7

我用高精度