%I#14 2013年11月21日12:50:19
%电话:123452345634567456785678967891789108910191011101111112,
%电话:11121112131213141314131514141415151615161515161716171,
%电话:617181818181918192819201929202202122212221222322223223242324225
%把自然数放在一起,不留空格,一次读五个,每次前进一个空格。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%F a(n)=总和(A007376(n+k)*10^(4-k):0≤k≤4)。
%t nn=40;使用[{tbl=Flatten[IntegerDigits/@Range[nn]]},Table[FromDigits[Take[tbl,{n,n+4}]](*_Harvey P.Dale_,2011年8月10日*)
%o(哈斯克尔)
%o a193493 n=a193493_列表!!(n-1)
%o a193493_list=f a007376_list,其中
%o f xs“@(x:xs)=((foldl(\u v->10*u+v)0)$take 5 xs”):f xs
%Y参考A136414、A193431、A193492。
%K nonn,基础
%O 1,1号机组
%A _Reinhard Zumkeller,2011年7月28日
|