OFFSET
1,2
COMMENTS
Indices of records of A080221.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..64
EXAMPLE
4 is a term since it is a Niven number in 4 bases: 1, 2, 3, 4, while the numbers below 4 are Niven numbers in less than 4 bases.
MATHEMATICA
nivenQ[n_, b_] := Divisible[n, Total @ IntegerDigits[n, b]]; basesCount[n_] := 1 + Sum[Boole @ nivenQ[n, b], {b, 2, n}]; bmax = 0; seq = {}; Do[b = basesCount[n]; If[b > bmax , bmax = b; AppendTo[seq, n]], {n, 1, 1000}]; seq
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Jan 01 2020
STATUS
approved