A145197 Partial sums of number of primes < n-th prime p such that p+2 is prime.

0, 1, 3, 5, 8, 11, 15, 19, 23, 28, 33, 38, 44, 50, 56, 62, 69, 76, 83, 91, 99, 107, 115, 123, 131, 140, 149, 159, 169, 179, 189, 199, 210, 221, 233, 245, 257, 269, 281, 293, 306, 319, 333, 347, 362, 377, 392, 407, 423, 439, 455, 472, 489, 506, 523, 540, 558, 576

Offset

1,3

Comments

Partial sums of A082462. [R. J. Mathar, Oct 06 2008]

Links

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

Maple

isA001359 := proc(p) if isprime(p) and isprime(p+2) then 1; else 0; fi; end: A082462 := proc(n) add( isA001359(ithprime(i)), i=1..n) ; end: A145197 := proc(n) add( A082462(i), i=1..n) ; end: for n from 1 to 200 do printf("%d, ", A145197(n)) ; od: # R. J. Mathar, Oct 06 2008

Crossrefs

Sequence in context: A002821 A046992 A001463 * A219656 A024169 A213706

Adjacent sequences: A145194 A145195 A145196 * A145198 A145199 A145200

Keyword

nonn

Author

Giovanni Teofilatto, Oct 04 2008

Extensions

Corrected and extended by R. J. Mathar, Oct 06 2008

Status

approved