login
A338515
Starts of runs of 3 consecutive numbers that are divisible by the total binary weight of their divisors (A093653).
2
1, 348515, 8612344, 29638764, 30625110, 32039808, 32130600, 32481682, 43664313, 55318282, 55503719, 59671714, 69254000, 73152296, 93470904, 100366594, 103640097, 105026790, 109038462, 109212287, 122519464, 126667271, 147208982, 162007166, 169237545, 173392238
OFFSET
1,2
LINKS
EXAMPLE
1 is a term since 1, 2 and 3 are terms of A093705.
MATHEMATICA
divQ[n_] := Divisible[n, DivisorSum[n, DigitCount[#, 2, 1] &]]; div = divQ /@ Range[3]; Reap[Do[If[And @@ div, Sow[k - 3]]; div = Join[Rest[div], {divQ[k]}], {k, 4, 10^7}]][[2, 1]]
CROSSREFS
Subsequence of A338514.
Similar sequences: A154701, A330932, A334346, A338453.
Sequence in context: A254454 A217835 A166263 * A069314 A022208 A213018
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Oct 31 2020
STATUS
approved