A087883 a(n) = PrimePi[n-PrimePi[n-1]] + Prime[Abs[n - Prime[n-2]]]

1, 1, 6, 12, 19, 33, 43, 61, 70, 86, 113, 131, 161, 183, 195, 215, 246, 282, 288, 336, 359, 373, 407, 437, 467, 516, 554, 571, 595, 607, 625, 717, 747, 782, 806, 868, 886, 928, 976, 1000, 1041, 1073, 1097, 1163, 1182, 1212, 1228, 1308, 1420, 1444, 1458, 1483

Offset

1,3

Comments

A reinversion sequence based on the primes with an A005185 pattern.

Links

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

Mathematica

prid[n_Integer?Positive] := prid[n] =PrimePi[n-PrimePi[n-1]] + Prime[Abs[n - Prime[n-2]]] prid[1] = prid[2] = 1 digits=256 a=Table[prid[n], {n, 1, digits+4}]

Crossrefs

Cf. A005185.

Sequence in context: A146923 A349791 A256977 * A218438 A162416 A365695

Adjacent sequences: A087880 A087881 A087882 * A087884 A087885 A087886

Keyword

nonn

Author

Roger L. Bagula, Oct 12 2003

Status

approved