A100953-OEIS公司

A100953号

将n划分为相对素数部分的次数，使得部分的多重性也相对素数。

1, 1, 0, 1, 2, 5, 5, 13, 14, 25, 28, 54, 54, 99, 105, 160, 192, 295, 315, 488, 546, 760, 890, 1253, 1404, 1945, 2234, 2953, 3459, 4563, 5186, 6840, 7909, 10029, 11716, 14843, 17123, 21635, 25035, 30981, 36098, 44581, 51370, 63259, 73223, 88739, 103048, 124752

(列表;图表;参考;听;历史;文本;内部格式)

抵消

0,5

链接

阿洛伊斯·海因茨，n=0..10000时的n，a（n）表

配方奶粉

Moebius变换A000837号.

MAPLE公司

读取转换：a000837:=[]：b000837:=fopen（“b000837.txt”，read）：bfil:=readline（b000837）：而StringTools[WordCount]（bfil）>0执行b:=sscanf（bfill，“%d%d”）；a000837:=[操作（a000837），操作（2，b）]；bfil：=readline（b000837）；od：fclose（b000837）；a000837:=subsop（1=NULL，a000837）：a:=MOBIUS（a000837:n从1到120执行打印f（“%d，”，op（n，a））；日期：#R.J.马塔尔2008年3月12日

#第二个Maple项目：

with（numtheory）：with（组合）：

b： =proc（n）选项记忆；`if`（n=0，1，添加(

莫比乌斯（n/d）*numbpart（d），d=除数（n））

结束时间：

a： =proc（n）选项记忆；`if`（n=0，1，添加(

莫比乌斯（n/d）*b（d），d=除数（n））

结束时间：

seq（a（n），n=0..60）； #阿洛伊斯·海因茨，2017年12月19日

数学

表[Length[Select[Integer Partitions[n]，And[GCD@@#==1，GCD@@Length/@Split[#]==1]&]]，{n，20}](*古斯·怀斯曼2017年12月19日*）

b[n_]：=b[n]=如果[n==0，1，总和[