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,2

Links

Table of n, a(n) for n=1..34.

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 *)

Prog

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

Crossrefs

Cf. A006093, A140853, A141208, A141217.

Sequence in context: A068987 A273047 A209077 * A141130 A157074 A329712

Adjacent sequences: A141136 A141137 A141138 * A141140 A141141 A141142

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jul 31 2008

Extensions

More terms from Emeric Deutsch, Aug 06 2008

Status

approved