A103572 Sum of the (primes > 5 modulo 19).

7, 18, 31, 48, 48, 52, 62, 74, 92, 95, 100, 109, 124, 126, 130, 140, 154, 170, 173, 180, 193, 195, 201, 209, 221, 235, 253, 266, 283, 287, 293, 309, 327, 332, 343, 358, 360, 368, 378, 379, 382, 389, 398, 400, 414, 432, 433, 438, 449, 462, 466, 476, 492, 495

Offset

1,1

Comments

For Prime[q[ the sums of the primes > 5 to a prime modulo form a sequence of sequences: a(n,q) = Sum[Mod[Prime[i+3],Prime[q]],{i,1,n}]

Links

Table of n, a(n) for n=1..54.

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A341008 A103571 A365414 * A049532 A156619 A033537

Adjacent sequences: A103569 A103570 A103571 * A103573 A103574 A103575

Keyword

nonn

Author

Roger L. Bagula, Mar 23 2005

Status

approved