Many excellent designs for a new banner were submitted. We will use the best of them in rotation.
1,1
Table of n, a(n) for n=1..33.
s=0; lst={}; Do[s+=n^2; If[PrimeQ[p=s-2], AppendTo[lst, p]], {n, 1, 6!}]; lst
Cf. A000330.
Sequence in context: A228452 A082484 A187805 * A106997 A141929 A216042
Adjacent sequences: A178605 A178606 A178607 * A178609 A178610 A178611
nonn,easy
Vladimir Joseph Stephan Orlovsky, May 30 2010
approved
