%I#13 2013年1月5日15:33:40
%第1101101101001011130323421022142230123052510523053070页,
%电话:2520607100111111104791102926101964101077633080101410369310,
%电话:210510130141118110121210312589148126031528121171571127012138214138151157105601581409131216159017804714018171613174106151213981715112481715110
%N a(1)=1;对于n>1,a(n)=n*(10^n-1)/9以n为基数。
%C对于n=2到9,这是一个十进制数,其中n个数字都等于n,然后以n为基数写。对于n>9,读者必须自己分开“数字”(因此这是一种相当令人不满意的顺序)。
%C A000461(n)写在基数n中。
%基4中的e 4444是1011130。
%pf:=n->n*(10^n-1)/9;
%pg:=n->转换(f(n),基数,n);
%p代表n从2到20 do
%p t1:=g(n);
%p t2:=nops(t1);
%p l打印([seq(t1[t2+1-i],i=1..t2)]);
%t连接[{1},表[s=FromDigits[表[n,{n}]];FromDigits[IntegerDigits[s,n]],{n,2,9}]](*_T.D.Noe_,2012年12月30日*)
%K nonn,基础
%O 1,2号机组
%A _Ruskin Harding_,2012年12月30日
%E由N.J.A.Sloane于2013年1月5日用Maple程序编辑
|