OFFSET
1,2
COMMENTS
The corresponding quotients are 1, 1, 2, 3, 4, 4, 4, 4, 4, ....
LINKS
EXAMPLE
10 is a term since the sum of digits in primorial base (A276150) of k from 1 to 10 is 1 + 1 + 2 + 2 + 3 + 1 + 2 + 2 + 3 + 3 = 20, which is divisible by 10.
MATHEMATICA
max = 10; bases = Prime@Range[max, 1, -1]; nmax = Times @@ bases - 1; s[n_] := Plus @@ IntegerDigits[n, MixedRadix[bases]]; seq = {}; sum = 0; Do[sum += s[n]; If[Divisible[sum, n], AppendTo[seq, n]], {n, 1, 10^6}]; seq
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Apr 02 2020
STATUS
approved