%I #12 Mar 21 2020 07:12:57
%S 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,
%T 66,68,70,72,77,84,88,90,92,96,105,108,112,117,120,132,133,136,144,
%U 150,154,156,160,168,180,182,184,189,192,198,200,210,212,213,216,220
%N Primorial base Niven numbers: numbers divisible by their sum of digits in primorial base (A276150).
%H Amiram Eldar, <a href="/A333426/b333426.txt">Table of n, a(n) for n = 1..10000</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Mixed_radix#Primorial_number_system">Primorial number system</a>.
%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>.
%e 1 is a term since A276150(1) = 1 divides 1;
%e 2 is a term since A276150(2) = 1 divides 2;
%t max = 5; bases = Prime @ Range[max, 1, -1]; nmax = Times @@ bases - 1; sumdig[n_] := Plus @@ IntegerDigits[n, MixedRadix[bases]]; Select[Range[nmax], Divisible[#, sumdig[#]] &]
%Y Cf. A005349, A049345, A049445, A064150, A064438, A064481, A118363, A235168, A276150, A328208, A328212.
%K nonn
%O 1,2
%A _Amiram Eldar_, Mar 20 2020
|