OFFSET
1,2
COMMENTS
The unsorted version is A373669.
EXAMPLE
The maximal runs of non-prime-powers begin:
1
6
10
12
14 15
18
20 21 22
24
26
28
30
33 34 35 36
38 39 40
42
44 45 46
48
50 51 52
54 55 56 57 58
60
So the a(n)-th runs begin:
1
14 15
20 21 22
33 34 35 36
54 55 56 57 58
MATHEMATICA
t=Length/@Split[Select[Range[10000], !PrimePowerQ[#]&], #1+1==#2&];
Select[Range[Length[t]], FreeQ[Take[t, #-1], t[[#]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 15 2024
STATUS
approved