A247028 Primes in tetranacci sequence A001631.

2, 7, 193, 19079, 1823013184807, 324494495853101147203936847, 16085434555484907108254435283952049, 255525859571903290673264616283734506003204622439226993660213169027169

Offset: 1

Author

Robert Price, Sep 09 2014

Keywords

• nonn

Comments

a(9) is too large to display here. It has 160 digits and is the 564th term in A001631.

Crossrefs

Cf. A001590, A001631, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862,A214825, A235873, A001630, A241660, A247027.

Programs

Mathematica

a={0,0,1,0}; For[n=4, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[4]]=sum]