OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from T. D. Noe)
Robert G. Batchko, A prime fractal and global quasi-self-similar structure in the distribution of prime-indexed primes, arXiv preprint arXiv:1405.2900 [math.GM], 2014.
Robert E. Dressler and S. Thomas Parker, Primes with a prime subscript, J. ACM, Volume 22 Issue 3, July 1975, 380-381.
Neil Fernandez, An order of primeness, F(p).
Neil Fernandez, An order of primeness. [cached copy, included with permission of the author]
Neil Fernandez, More terms of this and other sequences related to A049076.
Michael P. May, Properties of Higher-Order Prime Number Sequences, Missouri J. Math. Sci. (2020) Vol. 32, No. 2, 158-170; and arXiv version, arXiv:2108.04662 [math.NT], 2021.
FORMULA
a(n) = prime(prime(prime(n))).
a(n) ~ n*log(n)^3. - Ilya Gutkovskiy, Jul 17 2016
MAPLE
a:= ithprime@@3;
seq(a(n), n=1..50); # Alois P. Heinz, Jun 14 2015
# For Maple code for the prime/nonprime compound sequences (listed in cross-references) see A003622. - N. J. A. Sloane, Mar 30 2016
MATHEMATICA
Table[ Prime[ Prime[ Prime[ n ] ] ], {n, 1, 60} ]
Nest[Prime, Range[45], 3] (* Robert G. Wilson v, Mar 15 2004 *)
PROG
(PARI) a(n) = prime(prime(prime(n))) \\ Charles R Greathouse IV, Apr 28 2015
(PARI) list(lim)=my(v=List(), q, r); forprime(p=2, lim, if(isprime(q++) && isprime(r++), listput(v, p))); Set(v) \\ Charles R Greathouse IV, Feb 14 2017
(Magma) [NthPrime(NthPrime(NthPrime(n))): n in [1..50]]; // Vincenzo Librandi, Jul 17 2016
CROSSREFS
Primes p for which A049076(p) > 3.
Second differences give A245175.
KEYWORD
easy,nice,nonn
AUTHOR
STATUS
approved