OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Wikipedia, Primorial number system.
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