|
|
A188198
|
|
Base-7 Keith numbers.
|
|
0
|
|
|
8, 13, 16, 19, 24, 32, 40, 48, 57, 114, 125, 145, 171, 228, 285, 329, 342, 589, 1969, 2833, 4938, 30318, 43153, 168516, 336774, 375008, 652933, 1068018, 2955098, 5658387, 11096232, 19623430, 26245925, 81805113, 112442958, 119572340, 130712398, 407198006, 494835656, 508871625, 564319261, 712864110
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Keith numbers are described in A007629.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|