OFFSET
1,3
COMMENTS
Does this contain all nonnegative integers? The positions of first appearances begin: 4, 1, 3, 7, 47, 241, 843, 22019, 217069, ...
MATHEMATICA
Differences[Table[NestWhile[#+1&, n, #>1&&!SquareFreeQ[#]&], {n, 100}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 20 2024
STATUS
approved