A152539 Partial sum of A146538.

6, 18, 36, 58, 82, 112, 144, 180, 222, 268, 316, 368, 422, 482, 544, 610, 682, 756, 834, 916, 1000, 1088, 1178, 1270, 1366, 1468, 1576, 1688, 1802, 1918, 2036, 2156, 2278, 2404, 2534, 2666, 2804, 2944, 3086, 3230, 3380

Offset: 1

Author

Giovanni Teofilatto, Dec 07 2008

Keywords

• easy
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A146538.

Programs

Mathematica

Accumulate[Select[2*Range[150],!PrimeQ[#+3]&]] (* Harvey P. Dale, Jun 04 2016 *)

PARI

lista(nn) = {ps = 0; forstep (n=2, nn, 2, if (! isprime(n+3), ps += n; print1(ps, ", ")););} \\ Michel Marcus, Jun 04 2013

Extensions

More terms from Michel Marcus, Jun 04 2013