A339551 Starts of runs of 3 consecutive numbers with the same product of the binary weights of their divisors (A339549).
513059433, 3007912105, 4791685641, 11555664153, 44615854297, 111890605585, 121111724905, 163901238153
Offset: 1
Examples
513059433 is a term since A339549(513059433) = A339549(513059434) = A339549(513059435) = 1166400.
Programs
-
Mathematica
f[n_] := Times @@ (DigitCount[#, 2, 1] & /@ Divisors[n]); s = {}; m = 3; fs = f /@ Range[m]; Do[If[Equal @@ fs, AppendTo[s, n - m]]; fs = Rest @ AppendTo[fs, f[n]], {n, m + 1, 5*10^9}]; s
Comments