OFFSET
1,2
MAPLE
p:=ithprime: seq(p(p(p(n)-1)-1)-1, n=1..53); # Juri-Stepan Gerasimov, Oct 25 2009
MATHEMATICA
Table[Prime[Prime[Prime[n - 1] - 1] - 1] - 1, {n, 2, 50}] (* Vincenzo Librandi, Apr 05 2015 *)
PROG
(Magma) [NthPrime(NthPrime(NthPrime(n)-1)-1)-1: n in [1..50]]; // Vincenzo Librandi, Apr 05 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jul 31 2008
EXTENSIONS
a(22) corrected by D. S. McNeil, Mar 21 2009
STATUS
approved