|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: A051936 A101423 A146923 * A162416 A105455 A083207
Adjacent sequences: A087880 A087881 A087882 * A087884 A087885 A087886
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 12 2003
|
| |
|
|
