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

Author

Amiram Eldar, Jan 27 2020

Keywords

• nonn
• base

Examples

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

Links

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

Crossrefs

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

Programs

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]