OFFSET
1,2
COMMENTS
Primes in this sequence are A055496.- Robert Israel, May 23 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..10197
FORMULA
Conjecture : limit n ->oo log(a(n))/sqrt(n)=c= 1.3....
MAPLE
P[0]:= 0:
for n from 2 to 20 do P[n]:= nextprime(2*P[n-1]) od:
seq($2*P[i]+1..P[i+1], i=0..19); # Robert Israel, May 23 2017
MATHEMATICA
NestList[If[PrimeQ[#], 2#+1, #+1]&, 1, 50] (* Harvey P. Dale, Jul 02 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, May 31 2003
EXTENSIONS
Offset corrected by Robert Israel, May 23 2017
STATUS
approved