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..100
Z.-W. Sun, Problems on combinatorial properties of primes, arXiv:1402.6641, 2014
EXAMPLE
a(3) = 2861 with 2861, f(2861) = 23143, f(23143) = 240769 and f(240769) = 3117791 and f(3117791) = 48951967 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]]]]]]
n=0; Do[If[p[k], n=n+1; Print[n, " ", Prime[k]]], {k, 1, 100000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Jan 17 2014
STATUS
approved