login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A331820 Positive numbers k such that k and k + 1 are both negabinary-Niven numbers (A331728). 5
1, 2, 3, 8, 14, 15, 20, 32, 35, 56, 62, 63, 68, 80, 90, 95, 124, 125, 128, 174, 184, 185, 215, 224, 244, 245, 248, 254, 255, 260, 272, 275, 300, 304, 305, 320, 335, 342, 468, 469, 484, 485, 512, 515, 544, 545, 552, 575, 594, 636, 720, 762, 784, 785, 804, 846, 896 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

EXAMPLE

8 is a term since both 8 and 8 + 1 = 9 are negabinary-Niven numbers: A039724(8) = 11000 and 1 + 1 + 0 + 0 + 0 = 2 is a divisor of 8, and A039724(9) = 11001 and 1 + 1 + 0 + 0 + 1 = 3 is a divisor of 9.

MATHEMATICA

negaBinWt[n_] := negaBinWt[n] = If[n == 0, 0, negaBinWt[Quotient[n - 1, -2]] + Mod[n, 2]]; negaBinNivenQ[n_] := Divisible[n, negaBinWt[n]]; c = 0; k = 1; s = {}; v = Table[-1, {2}]; While[c < 60, If[negaBinNivenQ[k], v = Join[Rest[v], {k}]; If[AllTrue[Differences[v], # == 1 &], c++; AppendTo[s, k - 1]]]; k++]; s

CROSSREFS

Cf. A027615, A039724, A328209, A328213, A330927, A330931, A331086, A331089, A331728.

Sequence in context: A327868 A145929 A153865 * A022951 A247124 A171237

Adjacent sequences:  A331817 A331818 A331819 * A331821 A331822 A331823

KEYWORD

nonn,base

AUTHOR

Amiram Eldar, Jan 27 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 25 03:53 EDT 2021. Contains 346283 sequences. (Running on oeis4.)