login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A087881 a(n) = Prime[Prime[n-1]] + PrimePi[Abs[n - PrimePi[n-1]]] 0
4, 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; text; internal format)
OFFSET

2,1

COMMENTS

Purely functional sequence undefined for n=1 based on the primes in a reinversion pattern based on A004001.

LINKS

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

MATHEMATICA

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

CROSSREFS

Cf. A004001.

Sequence in context: A027856 A048641 A023599 * A063607 A045956 A057339

Adjacent sequences:  A087878 A087879 A087880 * A087882 A087883 A087884

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Oct 12 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 19 18:30 EST 2019. Contains 320327 sequences. (Running on oeis4.)