

A338455


Starts of runs of 5 consecutive numbers with the same total binary weight of their divisors (A093653).


0



1307029927, 2116078861, 2665774183, 2809370965, 4108623302, 4493733751, 5333670902, 5497285284, 5679049670, 8209799382, 9665369455, 9708528486, 10353426151, 10606564910, 12777118615, 12795699493, 13660293367, 13847206214, 14351020663, 15735895813, 17912257013
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Can 6 consecutive numbers have the same total binary weight of their divisors? If they exist, then they are larger than 10^11.


LINKS



EXAMPLE



MATHEMATICA

f[n_] := DivisorSum[n, DigitCount[#, 2, 1] &]; s = {}; m = 5; fs = f /@ Range[m]; Do[If[Equal @@ fs, AppendTo[s, n  m]]; fs = Rest @ AppendTo[fs, f[n]], {n, m + 1, 10^7}]; s


CROSSREFS



KEYWORD

nonn,base


AUTHOR



STATUS

approved



