A363788 Even primitive binary Niven numbers: even terms of A363787.

6, 10, 18, 34, 60, 66, 92, 108, 116, 126, 130, 156, 172, 180, 204, 212, 222, 228, 246, 258, 284, 300, 308, 318, 332, 340, 356, 366, 378, 396, 404, 414, 420, 438, 452, 462, 474, 486, 498, 514, 540, 556, 564, 588, 596, 606, 612, 630, 652, 660, 676, 708, 726, 780

Offset

1,1

Comments

The odd terms of A363787 are all the odd binary Niven numbers (A144302).

This sequence is infinite. E.g., A052548(k) = 2^k + 2 is a term for all k >= 2.

Links

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

Mathematica

binNivQ[n_] := Divisible[n, DigitCount[n, 2, 1]]; q[n_] := binNivQ[n] && ! (EvenQ[n] && binNivQ[n/2]); Select[Range[2, 1000, 2], q]

Prog

(PARI) isbinniv(n) = !(n % hammingweight(n));
is(n) = !(n%2) && isbinniv(n) && !isbinniv(n/2);

Crossrefs

Subsequence of A049445 and A363787.

Equals A363787 \ A144302.

Cf. A052548, A358255 (decimal analog).

Sequence in context: A077626 A338122 A169873 * A079471 A134351 A307458

Adjacent sequences: A363785 A363786 A363787 * A363789 A363790 A363791

Keyword

nonn,easy,base

Author

Amiram Eldar, Jun 22 2023

Status

approved