%I#5 2012年3月30日17:22:57
%S 8,11,16,27,37,44,74,88111148185409526241787201215415268,
%电话:4932261587684448283398644206356249549327001484512642437,
%电话:692928695659726969642251211008721228250451404810601484533626957212874343917155072818475692045417232877871245317977246133682
%N Base-6基思数。
%C基思编号见A007629。
%e 44在这里是因为,在基数6中,44是112,对这个数字应用Keith迭代得到数字1、1、2、4、7、13、24、44。
%t IsKeith[n_,b_]:=模块[{d,s,k},d=整数位数[n,b];s=总计[d];k=1;而[AppendTo[d,s];s=2 s-d[[k]];s<n,k++];s==n];选择[Range[3,10^5],IsKeith[#,6]&]
%Y参见A007629(底座10)、A162724(底座2)、A187713(底座5)、A188195-A188200。
%K nonn,基础
%O 1,1号机组
%A _T.D.Noe_,2011年3月24日
|