A331728 Negabinary-Niven numbers: numbers divisible by the sum of digits in their negabinary representation (A027615).

1, 2, 3, 4, 6, 8, 9, 12, 14, 15, 16, 18, 20, 21, 24, 28, 30, 32, 33, 35, 36, 40, 42, 48, 50, 52, 54, 56, 57, 60, 62, 63, 64, 66, 68, 69, 72, 76, 78, 80, 81, 84, 88, 90, 91, 95, 96, 100, 102, 108, 110, 112, 114, 120, 124, 125, 126, 128, 129, 132, 136, 138, 140

Offset

1,2

Links

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

Example

6 is a term since A039724(6) = 11010 and 1 + 1 + 0 + 1 + 0 = 3 is a divisor of 6.

Mathematica

negaBinWt[n_] := negaBinWt[n] = If[n==0, 0, negaBinWt[Quotient[n-1, -2]] + Mod[n, 2]]; negaBinNivenQ[n_] := Divisible[n, negaBinWt[n]]; Select[Range[100], negaBinNivenQ]

Crossrefs

Cf. A027615, A039724, A005349, A049445, A328208, A328212, A331085, A331088.

Sequence in context: A274452 A018731 A232966 * A353868 A113961 A116621

Adjacent sequences: A331725 A331726 A331727 * A331729 A331730 A331731

Keyword

nonn,base

Author

Amiram Eldar, Jan 27 2020

Status

approved