A226319 a(n) is the smallest odd k > 1 such that k is a Niven number at least in all the bases from 1 to n.

3, 21, 21, 21, 675, 4725, 4725, 98175, 140175, 543375, 543375, 23186625, 35026425, 139264125, 139264125, 608679225, 11553990525, 87662479905, 87662479905, 343947649815, 2383529269275, 4005262262925, 4005262262925

Offset

1,1

Links

Table of n, a(n) for n=1..23.

Example

a(4) = 21 because 21 is the smallest odd k > 1 which is Niven in bases 1 (trivial), 2, 3, and 4, being equal to (10101)_2, (210)_3 and (111)_4.

Mathematica

a[n_] := Block[{k=3}, n > 1 &&  While[Max@ Mod[k, Total /@ IntegerDigits[k, Range[2, n]]] > 0, k += 2]; k]; Array[a, 9]

Crossrefs

Cf. A005349, A226169, A226320, A225427 (Niven in bases 1,...,n but not in base n+1).

Sequence in context: A089999 A124397 A216324 * A279842 A043081 A091675

Adjacent sequences: A226316 A226317 A226318 * A226320 A226321 A226322

Keyword

nonn,base

Author

Giovanni Resta, Jun 03 2013

Status

approved