login
A188199
Base-8 Keith numbers.
1
8, 11, 15, 16, 22, 24, 32, 37, 40, 48, 56, 59, 92, 123, 200, 251, 257, 400, 457, 893, 2761, 4040, 4547, 8392, 9161, 12833, 16784, 21225, 29617, 127126, 238244, 378733, 526117, 587524, 599333, 672549, 745765, 2176234, 2347267, 2593739, 5285583, 8113400, 341785390, 449415500, 514971408
OFFSET
1,1
COMMENTS
Keith numbers are described in A007629.
EXAMPLE
200 is here because, in base 8, 200 is 310 and applying the Keith iteration to this number produces the numbers 3, 1, 0, 4, 5, 9, 18, 32, 59, 109, 200.
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[#, 8]&]
CROSSREFS
Cf. A007629 (base 10), A162724 (base 2), A187713 (base 5), A188195-A188200.
Sequence in context: A101573 A029629 A028394 * A078117 A256073 A032423
KEYWORD
nonn,base
AUTHOR
T. D. Noe, Mar 24 2011
STATUS
approved