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,2

Links

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

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.

Cf. A000120, A093653, A093705.

Similar sequences: A154701, A330932, A334346, A338453.

Sequence in context: A254454 A217835 A166263 * A069314 A022208 A213018

Adjacent sequences: A338512 A338513 A338514 * A338516 A338517 A338518

Keyword

nonn,base

Author

Amiram Eldar, Oct 31 2020

Status

approved