A331819 Positive numbers k such that -k is a negative negabinary-Niven number, i.e., divisible by the sum of digits of its negabinary representation (A027615).

2, 3, 4, 6, 8, 9, 10, 12, 15, 16, 18, 20, 24, 25, 27, 28, 30, 32, 33, 34, 36, 39, 40, 42, 44, 48, 54, 55, 56, 60, 63, 64, 66, 68, 70, 72, 77, 78, 80, 84, 90, 92, 96, 100, 102, 104, 108, 111, 112, 114, 115, 116, 120, 123, 124, 126, 128, 129, 130, 132, 135, 136, 138, 140

Offset

1,1

Links

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

Example

6 is a term since A039724(-6) = 1110 and 1 + 1 + 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. A005352, A027615, A039724, A005349, A049445, A328208, A328212, A331085, A331088, A331728.

Sequence in context: A259227 A196149 A240163 * A269045 A067023 A227762

Adjacent sequences: A331816 A331817 A331818 * A331820 A331821 A331822

Keyword

nonn,base

Author

Amiram Eldar, Jan 27 2020

Status

approved