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

Links

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

Formula

a(n+1)-a(n) = A039701(n+4) (first differences).

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

Crossrefs

Sequence in context: A039026 A123540 A065313 * A258592 A018825 A247779

Adjacent sequences: A103563 A103564 A103565 * A103567 A103568 A103569

Keyword

nonn

Author

Roger L. Bagula, Mar 23 2005

Status

approved