OFFSET
1,1
COMMENTS
Similar to A133589, except the comparison is done in binary.
EXAMPLE
a(6) = 39 since 39 in binary is 100111, the 39th prime is 167, or 10100111 in binary and the last 6 digits of these two binary numbers coincide.
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[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