A292937 a(0)=1, followed by highly safe primes: positions of records in A292936.
1, 2, 5, 11, 23, 47, 2879, 71850239, 2444789759, 21981381119
Offset: 0
Crossrefs
Programs
-
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 *)
Comments