|
%I #21 Jul 30 2017 01:27:37
%S 2,3,23,60217,108412217573460833,143003097309669584171480759
%N Primes in A001630.
%C a(7) is too large to display here. It has 206 digits and is the 722nd term in A001630.
%t 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]
%Y Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862,A214825, A235873, A001630, A241660.
%K nonn
%O 1,1
%A _Robert Price_, Apr 26 2014
%E a(1)=2 prepended and Mathematica program corrected by _Robert Price_, Sep 09 2014
|
