|
|
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
|
|
|
|