A086750 Duplicate of A086749.
5, 16, 47, 106, 233, 412, 689, 1020, 1451, 2050, 2759, 3678, 4741, 5894, 7191, 8714
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
[NthPrime(NthPrime(NthPrime(n))): n in [1..50]]; // Vincenzo Librandi, Jul 17 2016
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
Table[ Prime[ Prime[ Prime[ n ] ] ], {n, 1, 60} ] Nest[Prime, Range[45], 3] (* Robert G. Wilson v, Mar 15 2004 *)
a(n) = prime(prime(prime(n))) \\ Charles R Greathouse IV, Apr 28 2015
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