A100111 a(n) = Sum_{k >= 0} prime(n-4k).

2, 3, 5, 7, 13, 16, 22, 26, 36, 45, 53, 63, 77, 88, 100, 116, 136, 149, 167, 187, 209, 228, 250, 276, 306, 329, 353, 383, 415, 442, 480, 514, 552, 581, 629, 665, 709, 744, 796, 838, 888, 925, 987, 1031, 1085, 1124, 1198, 1254, 1312, 1353

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

a(5) = prime(5) + prime(1) = 11 + 2 = 13.

Mathematica

Table[Total[Prime[Range[n, 1, -4]]], {n, 50}] (* Harvey P. Dale, Jun 27 2021 *)

Prog

(PARI) a(n) =  if (n<4 || n%4, sum(k=0, n\4, prime(n - 4*k)), sum(k=0, n\4 - 1, prime(n - 4*k))) \\ Michel Marcus, Jun 30 2013

Crossrefs

Sequence in context: A173105 A024783 A092855 * A092878 A126059 A126058

Adjacent sequences: A100108 A100109 A100110 * A100112 A100113 A100114

Keyword

nonn

Author

Jorge Coveiro, Dec 26 2004

Extensions

More terms from Michel Marcus, Jun 30 2013

Status

approved