A141217 a(n) = prime(prime(prime(prime(n) - 1) - 1) - 1) - 1, where prime(n) is the n-th prime.

1, 2, 36, 150, 576, 862, 1492, 1810, 2712, 4210, 4512, 6688, 8110, 8572, 9828, 12496, 14778, 15496, 18222, 20856, 21490, 24420, 26416, 29670, 33460, 36832, 38046, 40086, 41452, 43206, 51576, 54366, 57726, 59628, 66552, 67138, 71740, 76386

Offset: 1

Author

Juri-Stepan Gerasimov, Jul 31 2008

Keywords

• nonn

Crossrefs

Cf. A141208, A140853, A006093.

Programs

Maple

p:=ithprime: seq(p(p(p(p(n)-1)-1)-1)-1, n=1..40); # Emeric Deutsch, Aug 16 2008

Mathematica

Table[Prime[Prime[Prime[Prime[n - 1] - 1] - 1] - 1] - 1, {n, 2, 50}] (* Vincenzo Librandi, Apr 05 2015 *)

Extensions

Corrected and extended by Emeric Deutsch, Aug 16 2008