A338515 Starts of runs of 3 consecutive numbers that are divisible by the total binary weight of their divisors (A093653).

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

Author

Amiram Eldar, Oct 31 2020

Keywords

• nonn
• base

Examples

			1 is a term since 1, 2 and 3 are terms of A093705.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..5000

Crossrefs

Subsequence of A338514.

Cf. A000120, A093653, A093705.

Similar sequences: A154701, A330932, A334346, A338453.

Programs

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