A141139 a(n) = f(f(f(f(f(n))))), where f(n) is prime(n)-1.

1, 2, 150, 862, 4210, 6688, 12496, 15496, 24420, 40086, 43206, 67138, 83046, 88426, 102646, 133998, 161092, 169986, 202966, 235288, 243262, 279816, 305068, 346168, 394812, 438568, 454500, 481020, 498936, 521860, 633160, 670728, 715698, 741400

Offset: 1

Author

Juri-Stepan Gerasimov, Jul 31 2008

Keywords

• nonn

Crossrefs

Cf. A006093, A140853, A141208, A141217.

Programs

Maple

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

Mathematica

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

PARI

vector(50, n, prime(prime(prime(prime(prime(n)-1)-1)-1)-1)-1) \\ Michel Marcus, Apr 09 2015

Extensions

More terms from Emeric Deutsch, Aug 06 2008