A103571 Sum of the (primes > 5 modulo 17).

7, 18, 31, 31, 33, 39, 51, 65, 68, 75, 84, 97, 99, 107, 117, 133, 136, 141, 152, 167, 171, 183, 199, 200, 205, 212, 223, 231, 243, 244, 247, 260, 275, 279, 289, 303, 306, 315, 326, 330, 336, 346, 358, 365, 367, 373, 381, 393, 394, 397, 410, 412, 420, 434, 450

Offset: 1

Author

Roger L. Bagula, Mar 23 2005

Keywords

• nonn
• less
• easy

Crossrefs

Cf. A039715, A103566-A103570, A103572.

Programs

Mathematica

a = Table[Sum[Mod[Prime[i + 3], 17], {i, 1, n}], {n, 1, 200}]

Formula

a(n+1)-a(n) = A039715(n+4).