login
A087883
a(n) = PrimePi[n-PrimePi[n-1]] + Prime[Abs[n - Prime[n-2]]]
0
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.
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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 12 2003
STATUS
approved