OFFSET
0,1
COMMENTS
MATHEMATICA
Table[NestWhile[#+1&, 2^n+1, !PrimePowerQ[#]&], {n, 0, 20}]
PROG
(Python)
from itertools import count
from sympy import primefactors
def A378252(n): return next(i for i in count(1+(1<<n)) if len(primefactors(i))==1) # Chai Wah Wu, Dec 02 2024
(PARI) a(n) = my(x=2^n+1); while (!isprimepower(x), x++); x; \\ Michel Marcus, Dec 03 2024
CROSSREFS
Subtracting 2^n appears to give A013597 except at term 3.
For prime we have A014210.
For previous we have A014234.
For perfect power we have A357751.
For squarefree we have A372683.
A000015 gives the least prime power >= n.
A031218 gives the greatest prime power <= n.
A244508 counts prime powers between powers of 2.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 30 2024
STATUS
approved