|
%I #4 Dec 08 2020 17:05:54
%S 513059433,3007912105,4791685641,11555664153,44615854297,111890605585,
%T 121111724905,163901238153
%N Starts of runs of 3 consecutive numbers with the same product of the binary weights of their divisors (A339549).
%C Analogous to A338453 as A339549 is analogous to A093653.
%e 513059433 is a term since A339549(513059433) = A339549(513059434) = A339549(513059435) = 1166400.
%t 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
%Y Cf. A000120, A093653, A338453, A339549.
%Y Subsequence of A339550.
%K nonn,base,more
%O 1,1
%A _Amiram Eldar_, Dec 08 2020
|
