Original entry on oeis.org
2, 11, 2713, 4066709, 289593761, 30236674150891013353640837416685668536004108580572237299601, 45323907186142905348893078704293178796516046414129798590935901
Offset: 1
Cf.
A001590,
A100683,
A231574,
A231575,
A232543,
A214899,
A020992,
A233554.
A214727,
A234696,
A141523,
A235862,
A214825,
A235873,
A242324,
A214827-
A214829,
A242572,
A242576,
A243622,
A244001,
A214831,
A244002,
A141036,
A246517.
-
a246518 n = a246518_list !! (n-1)
a246518_list = filter ((== 1) . a010051'') $ a141036_list
-- Reinhard Zumkeller, Sep 15 2014
-
a={2,1,1}; Print[2]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]
Original entry on oeis.org
19, 37, 223, 409, 53617, 23757289, 3111662089, 407556643177, 1372675688565303822697, 23548271681390871672120649, 1676892190264006259992141409, 64923481849284379431377700019
Offset: 1
Cf.
A001590,
A100683,
A231574,
A231575,
A232543,
A214899,
A020992,
A233554.
A214727,
A234696,
A141523,
A235862,
A214825,
A235873,
A214827,
A242324,
A214827,
A214828,
A214829,
A242572,
A242576,
A243622,
A214829,
A244001,
A214831,
A244002.
-
a={1,9,9}; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]
Showing 1-2 of 2 results.
Comments