reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
3, 11, 15, 15, 31, 39, 373, 1285, 1285, 1285, 2119, 2119, 15605, 29223, 52225, 52225, 186157, 186157, 1378927, 3137489, 4189897, 4189897, 10373543, 50359121, 50359121, 50359121, 490844965, 605616359, 605616359, 605616359, 3351375815, 3351375815, 5812974437
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 *)
nonn,more,base
a(23)-a(33) from Amiram Eldar, May 13 2019
approved
editing
editing
approved
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 2 two binary numbers coincide.
proposed
editing
editing
proposed
editing
proposed