OFFSET
1,14
COMMENTS
Prime powers allowing 1 are listed by A000961.
MATHEMATICA
Table[NestWhile[#+1&, n, #>1&&!PrimePowerQ[#]&]-n, {n, 100}]
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Gus Wiseman, Nov 27 2024
STATUS
approved