OFFSET
1,1
COMMENTS
Keith numbers are described in A007629.
EXAMPLE
48 is here because, in base 7, 48 is 66 and applying the Keith iteration to this number produces the numbers 6, 6, 12, 18, 30, 48.
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[#, 7]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
T. D. Noe, Mar 24 2011
STATUS
approved