The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A188197 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A188197

Base-6 Keith numbers.
(history; published version)

#5 by Russ Cox at Fri Mar 30 17:22:57 EDT 2012

AUTHOR

_T. D. Noe (noe(AT)sspectra.com), _, Mar 24 2011

Discussion

Fri Mar 30

17:22

OEIS Server: https://oeis.org/edit/global/120

#4 by D. S. McNeil at Thu Mar 24 21:54:29 EDT 2011

STATUS

reviewed

approved

#3 by T. D. Noe at Thu Mar 24 13:43:10 EDT 2011

STATUS

proposed

reviewed

#2 by T. D. Noe at Thu Mar 24 12:20:50 EDT 2011

NAME

allocated for T. D. Noe

Base-6 Keith numbers.

DATA

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.

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.

KEYWORD

allocated

nonn,base

AUTHOR

T. D. Noe (noe(AT)sspectra.com), Mar 24 2011

STATUS

approved

proposed

#1 by T. D. Noe at Wed Mar 23 21:53:15 EDT 2011

NAME

allocated for T. D. Noe

KEYWORD

allocated

STATUS

approved