A103570 Sum of the (primes > 5 modulo 13).

7, 18, 18, 22, 28, 38, 41, 46, 57, 59, 63, 71, 72, 79, 88, 90, 96, 104, 105, 110, 121, 127, 137, 149, 152, 157, 166, 176, 177, 184, 193, 199, 207, 208, 215, 226, 230, 240, 252, 261, 272, 274, 278, 281, 283, 289, 297, 309, 314, 321, 325, 335, 338, 347, 358, 362

Offset: 1

Author

Roger L. Bagula, Mar 23 2005

Keywords

• nonn
• less
• easy

Crossrefs

Cf. A039711, A103566-A103569, A103571-A103572.

Programs

Mathematica

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

Formula

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