%I#14 2021年9月19日10:47:02

%S 0,1,0,1,1,0,3,1,0,0,3,1,0,1,0，4,2,1,0,0，0,4,2,1,1,00,0,1,1,0，

%T 0,0,7,4,1,1,0,00,0,1,0,10,0_0,0,8,4,2,1,0,0:0,0,2,8,4,11,0,0，0,0~0,5，

%U 2,1,1,0,0,00,0,10,5,2,1,1,1,0,1,0,0-0,01,0,11,5,2,2,1,0,0

%N T（N，k）=素数（k）的最高幂除以N！，按行读取。

%C T（n，1）=A011371（n）；当n>1时，T（n，2）=A054861（n）；

%C T（n，k）=素数（k）的出现次数，作为数字因子<=n（有重复）；

%C和{T（n，k）：1<=k<=n}=A022559（n）；

%C T（n，A000720（n））=1；T（n，k）=0，A000720（n）<k<n。

%对于n>1且k=1..A000720（n），C T（n，k）=A115627（n，k）_Reinhard Zumkeller_，2013年11月1日

%H Reinhard Zumkeller，<a href=“/A085604/b085604.txt”>三角形的行n=1.125，扁平</a>

%e 0；

%e 1,0；

%e 1,1,0；

%e 3,1,0,0；

%e 3、1、1、0、0；

%e 4,2,1,0,0,0；

%e 4,2,1,0,0,0；

%e 7,2,1,1,0,0,0,1,0；

%e第7、4、1、1、0、0、0,0、0节；

%e 8,4,2,1,0,0,0,1,0,0；

%tT[n_，k_]：=模[{p=Prime[k]，jm}，jm=Floor[Log[p，n]]；求和[商[n，p^j]，{j，1，jm}]]；

%t表[t[n，k]，{n，1，14}，{k，1，n}]//扁平（*_Jean-François Alcover_，2021年9月19日*）

%o（哈斯克尔）

%o a085604 n k=a085604_tabl！！（n-2）！！（k-1）

%o a085604_低1=[0]

%o a085604_row n=a115627_row n++（从积分n中取$a062298$）[0,0..]

%o a085604_tabl=映射a085604行[1..]

%o--_Reinhard Zumkeller_，2013年11月1日

%Y参考A141809、A115627、A000142。

%K nonn，表

%O 1,7

%A _Reinhard Zumkeller，2003年7月7日