OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
2 is here because prime(1)=2^(prime(1+1)-prime(1)) or 2=2^(3-2);
3 is here because prime(2)<2^(prime(2+1)-prime(2)) or 3<2^(5-3).
MATHEMATICA
Select[Prime[Range[300]], # <= 2^(NextPrime[#] - #) &] (* T. D. Noe, Feb 28 2012 *)
PROG
(PARI) v=List(); p=2; forprime(q=3, 1e4, if(p<=2^(q-p), listput(v, p)); p=q); Vec(v) \\ Charles R Greathouse IV, Aug 03 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Gerasimov Sergey, Feb 23 2012
STATUS
approved