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
KEYWORD
nonn,base
AUTHOR
T. D. Noe, Mar 24 2011
STATUS
approved