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
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