A103567 Sum of the (primes > 5 modulo 5).
2, 3, 6, 8, 12, 15, 19, 20, 22, 23, 26, 28, 31, 35, 36, 38, 39, 42, 46, 49, 53, 55, 56, 59, 61, 65, 68, 70, 71, 73, 77, 81, 82, 84, 87, 89, 92, 96, 97, 98, 101, 103, 107, 108, 111, 113, 117, 120, 124, 125, 126, 128, 131, 135, 136, 138, 139, 142, 145, 147, 148, 151, 153
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
a = Table[Sum[Mod[Prime[i + 3], 5], {i, 1, n}], {n, 1, 200}] Accumulate[Mod[#,5]&/@Prime[Range[4,70]]] (* Harvey P. Dale, May 31 2014 *)
Formula
a(n+1)-a(n) = A039703(n+4).