OFFSET
1,1
LINKS
Michel Marcus, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = nextprime(A246547(n)) - prevprime(A246547(n)) = A013633(A246547(n)). [corrected by Michel Marcus, Mar 23 2020]
EXAMPLE
59049=3^10 is between 59029 and 59051, so the corresponding term is 59051-59029=22.
PROG
(PARI) ispp(n) = isprimepower(n) >= 2; \\ A246547
lista(nn) = {for (n=1, nn, if (ispp(n), print1(nextprime(n) - precprime(n), ", ")); ); } \\ Michel Marcus, Mar 23 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 03 2001
STATUS
approved