OFFSET
1,6
MATHEMATICA
Differences[Table[NestWhile[#-1&, n, #>1&&!PrimePowerQ[#]&], {n, 100}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 16 2024
STATUS
approved