|
|
A338453
|
|
Starts of runs of 3 consecutive numbers with the same total binary weight of their divisors (A093653).
|
|
5
|
|
|
3, 242, 243, 1837, 2361, 3693, 3728, 6061, 6457, 9782, 11181, 11721, 13855, 15177, 20017, 22591, 28021, 31461, 31887, 33098, 33993, 38137, 52016, 52112, 60321, 76897, 78542, 78745, 80461, 108394, 116017, 119541, 124453, 125493, 127117, 127417, 145369, 151805, 154113
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
f[n_] := DivisorSum[n, DigitCount[#, 2, 1] &]; s = {}; m = 3; fs = f /@ Range[m]; Do[If[Equal @@ fs, AppendTo[s, n - m]]; fs = Rest @ AppendTo[fs, f[n]], {n, m + 1, 155000}]; s
SequencePosition[Table[Total[DigitCount[Divisors[n], 2, 1]], {n, 160000}], {x_, x_, x_}][[All, 1]] (* Harvey P. Dale, Feb 04 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|