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,1

Comments

Keith numbers are described in A007629.

Links

Table of n, a(n) for n=1..45.

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

Adjacent sequences: A188194 A188195 A188196 * A188198 A188199 A188200

Keyword

nonn,base

Author

T. D. Noe, Mar 24 2011

Status

approved