A188197 Base-6 Keith numbers.

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

Author

T. D. Noe, Mar 24 2011

Keywords

• nonn
• base

Comments

Keith numbers are described in A007629.

Examples

			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.
		

Crossrefs

Cf. A007629 (base 10), A162724 (base 2), A187713 (base 5), A188195-A188200.

Programs

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]&]