A157492 -id:A157492 - cp's OEIS frontend

A157493 Apply partial sum operator thrice to sequence of squares of the first n primes.

4, 21, 76, 218, 568, 1295, 2688, 5108, 9084, 15457, 25188, 39646, 60512, 89635, 129224, 182088, 251708, 341805, 456868, 601938, 782344, 1004327, 1274776, 1601612, 1994244, 2462873, 3018108, 3671398, 4434624, 5320555, 6345320

Offset: 1

Vladimir Joseph Stephan Orlovsky, Mar 01 2009

nonn

Cf. A001223, A014148, A014150, A061789, A069482, A129701, A157492.

s0=s1=s2=0; Table[s0+=Prime[n]^2; s1+=s0; s2+=s1, {n,100}]
Nest[Accumulate,Prime[Range[40]]^2,3]  (* Harvey P. Dale, Jan 27 2011 *)

A157494 Primes in A014150.

Original entry on oeis.org

2, 1429, 32869, 3189059, 5157791, 62701339, 139181423, 296686879, 522304883, 5070516751, 6276844867, 7098350179, 8983996079, 9331926623, 21211375343, 31177858939, 34861039007, 38865340309, 39918757589, 62858815181

Offset: 1

Vladimir Joseph Stephan Orlovsky, Mar 01 2009

nonn

Cf. A001223, A014148, A014150, A061789, A069482, A122382, A129701, A157492, A157493

s0=s1=s2=0;lst={};Do[p=Prime[n];s0+=p;s1+=s0;s2+=s1;If[PrimeQ[s2],AppendTo[lst,s2]],{n,7!}];lst
Select[Nest[Accumulate[#]&,Prime[Range[700]],3],PrimeQ] (* Harvey P. Dale, Jul 11 2025 *)

cp's OEIS Frontend

A157493 Apply partial sum operator thrice to sequence of squares of the first n primes.

Views

Author

Keywords

Crossrefs

Programs