%I#5 2012年3月30日17:22:57
%S 8,11,15,16,22,24,32,37,40,48,56,59,92123200251257400457893,
%电话276140404547839296112833167842122529617127126238244,
%电话:37873352611758752459933367254974576521762342347267259373952855838113400341785390449415500514971408
%N Base-8基思数。
%C基思编号见A007629。
%这里的e200是因为,在基数8中,200是310,对这个数字进行基思迭代会得到数字3、1、0、4、5、9、18、32、59、109、200。
%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[#,8]&]
%Y参见A007629(底座10)、A162724(底座2)、A187713(底座5)、A188195-A188200。
%K nonn,基础
%O 1,1号机组
%A _T.D.Noe_,2011年3月24日
|