OFFSET
1,1
COMMENTS
Similar to A133590, except the comparison is done in binary.
MATHEMATICA
f[n_] := Module[{p = Prime[n]}, m = IntegerExponent[p - n, 2]; If[n < 2^m, Length[IntegerDigits[n, 2]], m]]; fm = 0; s = {}; Do[f1 = f[n]; If[f1 > fm, s = Join[s, Table[Prime[n], {f1 - fm}]]; fm = f1], {n, 1, 10^6}]; s (* Amiram Eldar, May 13 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Chai Wah Wu, Jul 24 2014
EXTENSIONS
a(23)-a(33) from Amiram Eldar, May 13 2019
STATUS
approved