A333426 Primorial base Niven numbers: numbers divisible by their sum of digits in primorial base (A276150).

1, 2, 4, 6, 8, 9, 12, 16, 18, 20, 24, 25, 30, 32, 33, 36, 40, 42, 44, 45, 48, 50, 60, 64, 65, 66, 68, 70, 72, 77, 84, 88, 90, 92, 96, 105, 108, 112, 117, 120, 132, 133, 136, 144, 150, 154, 156, 160, 168, 180, 182, 184, 189, 192, 198, 200, 210, 212, 213, 216, 220

Offset

1,2

Comments

Numbers k for which A276086(k) is in A373852. - Antti Karttunen, Jun 22 2024

Links

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

Wikipedia, Primorial number system.

Index entries for sequences related to primorial base.

Example

1 is a term since A276150(1) = 1 divides 1;
2 is a term since A276150(2) = 1 divides 2;

Mathematica

max = 5; bases = Prime @ Range[max, 1, -1]; nmax = Times @@ bases - 1; sumdig[n_] := Plus @@ IntegerDigits[n, MixedRadix[bases]]; Select[Range[nmax], Divisible[#, sumdig[#]] &]

Prog

(PARI) isA333426 = A373834; \\ Antti Karttunen, Jun 22 2024

Crossrefs

Cf. A005349, A049345, A049445, A064150, A064438, A064481, A118363, A235168, A276150, A328208, A328212, A373834 (characteristic function)

Cf. A276086, A333427, A333428, A341433, A347496, A358977, A373833, A373852.

Positions of 0's in A373832.

Sequence in context: A100345 A261011 A354360 * A118363 A337674 A324521

Adjacent sequences: A333423 A333424 A333425 * A333427 A333428 A333429

Keyword

nonn

Author

Amiram Eldar, Mar 20 2020

Status

approved