A235984 Primes p with f(p), f(f(p)), f(f(f(p))), f(f(f(f(p)))), f(f(f(f(f(p))))) all prime, where f(n) = prime(n) - n + 1.

2, 3, 501187, 560029, 2076881, 2836003, 2907011, 8254787, 8822347, 10322189, 11329181, 11354641, 12307693, 14528069, 15801601, 17757427, 19023091, 24995669, 25871971

Offset

1,1

Comments

By the general conjecture in A235925, this sequence should have infinitely many terms.

Links

Zhi-Wei Sun, Table of n, a(n) for n = 1..19

Z.-W. Sun, Problems on combinatorial properties of primes, arXiv:1402.6641, 2014

Example

a(3) = 501187 with 501187, f(501187) = 6886357, f(6886357) = 113948711, f(113948711) = 2224096873, f(2224096873) =  50351471977 and f(50351471977) = 1303792228393 all prime.

Mathematica

f[n_]:=Prime[n]-n+1
p[k_]:=PrimeQ[f[Prime[k]]]&&PrimeQ[f[f[Prime[k]]]]&&PrimeQ[f[f[f[Prime[k]]]]]&&PrimeQ[f[f[f[f[Prime[k]]]]]]&&PrimeQ[f[f[f[f[f[Prime[k]]]]]]]
n=0; Do[If[p[k], n=n+1; Print[n, " ", Prime[k]]], {k, 1, 10^7}]

Crossrefs

Cf. A000040, A234694, A234695, A235924, A235925, A235934, A235935.

Sequence in context: A324154 A038537 A338404 * A120313 A216981 A307255

Adjacent sequences: A235981 A235982 A235983 * A235985 A235986 A235987

Keyword

nonn

Author

Zhi-Wei Sun, Jan 17 2014

Status

approved