cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A188197 Base-6 Keith numbers.

This page as a plain text file.
%I A188197 #5 Mar 30 2012 17:22:57
%S A188197 8,11,16,27,37,44,74,88,111,148,185,409,526,2417,8720,12154,15268,
%T A188197 49322,61587,68444,82833,98644,206356,249549,327001,484512,642437,
%U A188197 692928,695659,726975,964225,1210087,2141228,2282504,5514048,10640601,48453362,69572128,74343984,171550728,184847569,204545417,232877871,245317977,246133682
%N A188197 Base-6 Keith numbers.
%C A188197 Keith numbers are described in A007629.
%e A188197 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.
%t A188197 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]&]
%Y A188197 Cf. A007629 (base 10), A162724 (base 2), A187713 (base 5), A188195-A188200.
%K A188197 nonn,base
%O A188197 1,1
%A A188197 _T. D. Noe_, Mar 24 2011