login
A333426
Primorial base Niven numbers: numbers divisible by their sum of digits in primorial base (A276150).
27
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
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
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 20 2020
STATUS
approved