A103566 Sum of the primes > 5 modulo 3.
1, 3, 4, 6, 7, 9, 11, 12, 13, 15, 16, 18, 20, 22, 23, 24, 26, 27, 28, 30, 32, 33, 35, 36, 38, 39, 41, 42, 44, 46, 47, 49, 50, 51, 52, 54, 56, 58, 59, 61, 62, 64, 65, 66, 67, 69, 70, 72, 74, 75, 77, 79, 81, 83, 84, 85, 87, 88, 90, 91, 93, 94, 96, 97, 98, 100, 101, 103, 105, 106
Offset: 1
Programs
-
Mathematica
a = Table[Sum[Mod[Prime[i + 3], 3], {i, 1, n}], {n, 1, 200}] Accumulate[Mod[Prime[Range[4,80]],3]] (* Harvey P. Dale, Aug 04 2013 *)
Formula
a(n+1)-a(n) = A039701(n+4) (first differences).
a(n) = A120326(n+3) - 4. - Jason Yuen, Sep 01 2024