A241661 Primes in A001630.

2, 3, 23, 60217, 108412217573460833, 143003097309669584171480759

Offset: 1

Author

Robert Price, Apr 26 2014

Keywords

• nonn

Comments

a(7) is too large to display here. It has 206 digits and is the 722nd term in A001630.

Crossrefs

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

Programs

Mathematica

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

Extensions

a(1)=2 prepended and Mathematica program corrected by Robert Price, Sep 09 2014