|
（哈斯克尔）
导入数据。列表（sort、group、sortBy、groupBy）
导入数据。功能（打开）
a057144 n=头$last$head$groupBy（（==）`on`长度）$
reverse$sortBy（比较“on”长度）$
组$sort[u*v|u<-[1..n]，v<-[1.n]]
（PARI）T（n，f=系数（n））=my（k=#f~）；f[，1]=素数（k+1）[2..k+1]~；f[1,1]=6；因子回收（f）
listA025487（Nmax）=vecsort（concat（向量（logint（Nmax2），n，选择（t->t<=Nmax，if（n>1，[factorback（primes（#p），Vecrev（p））|p<-partitions（n）]，[1,2]））））
ct（n，k）=总和（n，d，最大值（d，n/d）<=k）
a（n）=如果（n==1，返回（1））；我的（v=列表A025487（n^2），r，t，at）；对于（i=1，v，t=ct（v[i]，n）；如果（t>r，r=t；at=v[i]）；在\\查尔斯·格里特豪斯四世2022年2月5日
| 