%I#23 2021年12月16日11:48:44
%S 1,2,3,2,4,10,3,7,21,73,2,6,261266,4,12,5025213948052,2,8,50,
%电话:344240216808117650,4,15,855854369338252663052113665,3,13,91,
%电话:757664359293532171478515743053283,4181301134106421031581015690100782541003908821001953638
%N三角形数组,按行读取:t(N,k)=总和(d^k:d|N),0<=k<N。
%H T.D.Noe,<a href=“/A082771/b082771.txt”>行n=1..100,扁平</a>
%H Eric Weistein的《数学世界》,<a href=“http://mathworld.wolfram.com/DivisorFunction.html“>除数函数</a>
%F t(n,k)=乘积((p^((e(n,p)+1)*k))-1)/(p^k-1):n=乘积。
%F(n,0)=A000005(n),t(n,n)=A023887(n)。
%F t(n,1)=A000203(n),n>1;t(n,2)=A001157(n),n>2;t(n,3)=A001158(n),n>3。
%Ft(n,4)=A001159(n),n>4;t(n,5)=A001160(n),n>5;t(n,6)=A013954(n),n>6。
%F From R.J.Mathar_,2006年10月29日:(开始)
%F t(2,k)=A000051(k);t(3,k)=A034472(k);t(4,k)=A001576(k);
%F t(5,k)=A034474(k);t(6,k)=A034488(k);t(7,k)=A034491(k);
%F t(8,k)=A034496(k);t(9,k)=A034513(k);t(10,k)=A034517(k);
%F t(11,k)=A034524(k);t(12,k)=A034660(k)。(结束)
%e摘自R.J.Mathar_:
%e三角形可以延伸为矩形阵列(A319278):
%e 11 11 11 11 1 11 11。。。
%e 2 3 5 9 17 33 65 129 257 513 1025。。。
%e 2 4 10 28 82 244 730 2188 6562 19684 59050。。。
%e 3 7 21 73 273 1057 4161 16513 65793 262657 1049601。。。
%e 2 6 26 126 626 3126 15626 78126 390626 1953 126 9765626。。。
%e 4 12 50 252 1394 8052 47450 282252 1686434 10097892 60526250。。。
%e 2 8 50 344 2402 16808 117650 823544 5764802 40353608 282475250。。。
%电子邮箱:4 15 85 585 4369 33825 266305 2113665 16843009 134480385 1074791425。。。
%电子邮箱:3 13 91 757 6643 59293 532171 4785157 43053283 387440173 3486843451。。。
%e 4 18 130 1134 10642 103158 1015690 10078254 100390882 1001953638。。。
%t t[n_,k_]:=除数Sigma[k,n];
%t表[t[n,k],{n,1,10},{k,0,n-1}]//Flatten(*_Jean-François Alcover_,2021年12月16日*)
%Y参考A000005、A000203、A001157、A001158、A001159、A001160。
%Y参见A013954、A013955、A013956、A013957、A013958、A013959、A013960、A013961、A013962、A013963。
%Y参见A013964、A013965、A013966、A013967、A013968、A013969、A013970、A013971、A013972。
%K non,tabl,简单
%O 1,2号机组
%A _Reinhard Zumkeller,2003年5月21日
%E由R.J.Mathar_修订,2006年12月5日
|