OFFSET
1,1
COMMENTS
No other terms < 4290000000. - Jud McCranie, Jun 20 2000
There are no other terms < 2^63. - Donovan Johnson, Mar 11 2013
EXAMPLE
Between 7 and 11 the 2 prime powers are 8 and 9, between 23 and 29 the 2 prime powers are 25 and 27, between 113 and 127 the 2 prime powers are 121 and 125, while between 32749 and 32771 the 2 prime powers are 32761 = 181^2 and 32768 = 2^15.
MATHEMATICA
nn = 2^20; Prime /@ Keys@ Select[PositionIndex[PrimePi /@ Union@ Flatten@ Table[Array[p^# &, Floor@ Log[p, nn] - 1, 2], {p, Prime@ Range@ PrimePi@ Sqrt@ nn}]], Length[#] > 1 &] (* Michael De Vlieger, Mar 21 2024 *)
PROG
(PARI) isok(p) = isprime(p) && (q=nextprime(p+1)) && (v=vector(q-p, x, p+x)) && (#select(x->(isprimepower(x) && !isprime(x)), v) == 2);
lista(nn) = forprime(p=2, nn, if (isok(p), print1(p, ", "))); \\ Michel Marcus, Jul 15 2017
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Labos Elemer, Feb 14 2000
EXTENSIONS
Corrected by James A. Sellers, Feb 22 2000
STATUS
approved