OFFSET
0,2
COMMENTS
MATHEMATICA
With[{s = Table[SelectFirst[Range[0, 10], ! PrimeQ@ Floor[n/(2^#)] &], {n, 10^7}]}, Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]] (* Michael De Vlieger, Sep 29 2017 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Antti Karttunen, Sep 28 2017
STATUS
approved