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

Author

Amiram Eldar, Jun 22 2023

Keywords

• nonn
• easy
• base

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

Crossrefs

Subsequence of A049445 and A363787.

Equals A363787 \ A144302.

Cf. A052548, A358255 (decimal analog).

Programs

Mathematica

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

PARI

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