|
|
|
|
37, 236, 513, 880, 1877, 2926, 4029, 5480, 7189, 8966, 11103, 13316, 16269, 19310, 22717, 26606, 30595, 34686, 39995, 47188, 55071, 66184, 79941, 95024, 111097, 128190, 156833, 185742, 216001, 248204, 283293, 319270, 360149, 402306, 445757
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
s1=s2=0; lst={}; Do[If[PrimeQ[n], NULL, s1+=n; If[PrimeQ[s1], s2+=s1; AppendTo[lst, s2]]], {n, 2, 6!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|