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

Author

Amiram Eldar, Mar 20 2020

Keywords

• nonn

Comments

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

Examples

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

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Wikipedia, Primorial number system.
• Index entries for sequences related to primorial base.

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.

Programs

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[#]] &]

PARI

isA333426 = A373834; \\ Antti Karttunen, Jun 22 2024