login
A188197
Base-6 Keith numbers.
0
8, 11, 16, 27, 37, 44, 74, 88, 111, 148, 185, 409, 526, 2417, 8720, 12154, 15268, 49322, 61587, 68444, 82833, 98644, 206356, 249549, 327001, 484512, 642437, 692928, 695659, 726975, 964225, 1210087, 2141228, 2282504, 5514048, 10640601, 48453362, 69572128, 74343984, 171550728, 184847569, 204545417, 232877871, 245317977, 246133682
OFFSET
1,1
COMMENTS
Keith numbers are described in A007629.
EXAMPLE
44 is here because, in base 6, 44 is 112 and applying the Keith iteration to this number produces the numbers 1, 1, 2, 4, 7, 13, 24, 44.
MATHEMATICA
IsKeith[n_, b_] := Module[{d, s, k}, d = IntegerDigits[n, b]; s = Total[d]; k = 1; While[AppendTo[d, s]; s = 2 s - d[[k]]; s < n, k++]; s == n]; Select[Range[3, 10^5], IsKeith[#, 6]&]
CROSSREFS
Cf. A007629 (base 10), A162724 (base 2), A187713 (base 5), A188195-A188200.
Sequence in context: A068591 A065348 A155717 * A234096 A111254 A127271
KEYWORD
nonn,base
AUTHOR
T. D. Noe, Mar 24 2011
STATUS
approved