OFFSET
1,1
COMMENTS
Apparently there is no limit for number of iterations of the map p->2p+nextprime(p) all giving primes.
E.g., first primes with 6 iterations all giving primes are 1854811727,1988791547,2498711497,2866433161,3337303943,3514209079.
EXAMPLE
p=1538419, q=2p+np(p)=4615267, r=2q+np(q)=13845817, s=2r+np(r)=41537491, t=2s+np(s)=124612483, u=2t+np(t)=373837459 all prime, while v=2u+np(u)=1121512407=3*23*89*182627 is not prime; here np(m) = A151800(m) = next prime after m.
MATHEMATICA
fimQ[p_]:=AllTrue[NestList[2#+NextPrime[#]&, p, 5], PrimeQ]; Select[Prime[Range[ 13960000]], fimQ] (* Harvey P. Dale, Oct 09 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 15 2015
STATUS
approved