搜索: a050320-编号:a050320
|
|
|
|
1, 1, 1, 2, 1, 2, 1, 2, 5, 1, 3, 2, 6, 1, 3, 2, 6, 1, 3, 9, 2, 15, 4, 6, 1, 3, 10, 2, 21, 4, 6, 1, 3, 10, 2, 22, 4, 16, 6, 1, 13, 3, 35, 5, 10, 2, 22, 4, 19, 6, 1, 14, 3, 52, 41, 5, 10, 2, 22, 4, 20, 6, 1, 14, 3, 83, 42, 5, 26, 10, 2, 66, 17, 22, 4, 20, 55, 6, 6, 1, 14, 3, 93
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4个
|
|
链接
|
|
|
配方奶粉
|
|
|
MAPLE公司
|
读取(转换):
a050320型:=文件列表(“b050320.txt”):
从1到n do
printf(“%d%d\n”,n,a050325);
|
|
数学
|
a050320型=案例[导入[“网址:https://oeis.org/A050320型/b050320.txt“,”表格“],{_,_}][[全部,2];
lpe={};a025487={1};
Do[pe=排序[FactorInteger[n][[All,2]];如果[FreeQ[lpe,pe],AppendTo[lpe、pe];附加到[a025487,n]],{n,2,10^4}];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 2, 0, 1, 1, 3, 0, 2, 0, 2, 1, 1, 0, 4, 1, 1, 1, 2, 0, 3, 0, 3, 1, 1, 1, 5, 0, 1, 1, 4, 0, 3, 0, 2, 2, 1, 0, 6, 1, 2, 1, 2, 0, 4, 1, 4, 1, 1, 0, 6, 0, 1, 2, 6, 1, 3, 0, 2, 1, 3, 0, 8, 0, 1, 2, 2, 1, 3, 0, 6, 3, 1, 0, 6, 1, 1, 1, 4, 0, 6, 1, 2, 1, 1, 1, 10, 0, 2, 2, 5, 0, 3, 0, 4, 3
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,12
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
n=12,16,24,36,48,72,96,120的a(n)因子分解:
2*6 2*8 3*8 4*9 6*8 8*9 2*48 2*60
3*4 4*4 4*6 6*6 2*24 2*36 3*32 3*40
2*2*2*2 2*12 2*18 3*16 3*24 4*24 4*30
2*2*2*3 3*12 4*12 4*18 6*16 5*24
2*2*3*3 2*2*2*6 6*12 8*12 6*20
2*2*3*4 2*2*2*9 2*2*3*8 8*15
2*2*3*6 2*2*4*6 10*12
2*3*3*4 2*3*4*4 2*2*5*6
2*2*2*12 2*3*4*5
2*2*2*2*2*3 2*2*2*15
2*2*3*10
|
|
MAPLE公司
|
g: =proc(n,k,t)选项记忆`如果`(n>k,0,t)+
`如果`(i素数(n),0,加(`如果`(d>k,0,g(n/d,d,1-t)),
d=数值[除数](n)减去{1,n}))
结束时间:
a: =n->`如果`(n=1,1,g(n$2,0)):
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Length[Select[facs[n],EvenQ@长度[#]&]],{n,100}]
|
|
黄体脂酮素
|
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A161906号
|
| 按行读取的三角形,其中第n行列出了n的除数,这些除数小于等于sqrt(n)。 |
|
+10 46
|
|
|
1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 3, 1, 2, 4, 1, 1, 2, 3, 1, 1, 2, 4, 1, 3, 1, 2, 1, 1, 2, 3, 4, 1, 5, 1, 2, 1, 3, 1, 2, 4, 1, 1, 2, 3, 5, 1, 1, 2, 4, 1, 3, 1, 2, 1, 5, 1, 2, 3, 4, 6, 1, 1, 2, 1, 3, 1, 2, 4, 5, 1, 1, 2, 3, 6, 1, 1, 2, 4, 1, 3, 5, 1, 2, 1, 1, 2, 3
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,5
|
|
评论
|
|
|
链接
|
|
|
例子
|
三角形开始:
1....... 1;
2....... 1;
3....... 1;
4..... 1,2;
5....... 1;
6..... 1,2;
7....... 1;
8..... 1,2;
9..... 1,3;
10…..1,2;
11....... 1;
12... 1,2,3;
13....... 1;
14..... 1,2;
15..... 1,3;
16... 1,2,4;
|
|
数学
|
div[n_]:=选择[Divisors[n],#<=Sqrt[n]&];div/@范围[48]//展平(*阿米拉姆·埃尔达尔2020年11月13日*)
|
|
黄体脂酮素
|
(哈斯克尔)
a161906 n k=a161906_tabf!!(n-1)!!(k-1)
a161906_row n=a161906-tabf!!(n-1)
a161906_tabf=zipWith(\m ds->takeWhile((<=m))。(^2))ds)
[1..]a027750_tabf'
(PARI)行(n)=选择(x->(x<=sqrt(n)),除数(n)\\米歇尔·马库斯2020年11月13日
|
|
交叉参考
|
-上级:A033677号,A051283号,A059172号,A063538号,A063539号,A070038号,A116882号,16883年,A341591飞机,A341592飞机,A341593飞机,A341675型,A341676飞机.
-严格上级:A048098型,A064052号,A140271号,A238535型,A341594飞机,A341595型,A341642,A341643型,A341644型,A341645型,A341646飞机.
|
|
关键词
|
容易的,非n,标签
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 0, 1, 2, 1, 0, 0, 2, 1, 1, 1, 2, 2, 0, 1, 1, 1, 1, 2, 2, 1, 0, 0, 2, 0, 1, 1, 5, 1, 0, 2, 2, 2, 1, 1, 2, 2, 0, 1, 5, 1, 1, 1, 2, 1, 0, 0, 1, 2, 1, 1, 0, 2, 0, 2, 2, 1, 4, 1, 2, 1, 0, 2, 5, 1, 1, 2, 5, 1, 0, 1, 2, 1, 1, 2, 5, 1, 0, 0, 2, 1, 4, 2, 2, 2, 0, 1, 4, 2, 1, 2, 2, 2, 0, 1, 1, 1, 1, 1, 5, 1
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,6
|
|
评论
|
a(n)只依赖于n的素数签名(参见。A025487号). 所以a(24)=a(375)因为24=2^3*3和375=3*5^3都有质数签名(3,1)。
|
|
链接
|
|
|
配方奶粉
|
狄利克雷g.f.:乘积{n为平方和>1}(1+1/n^s)。
|
|
例子
|
a(30)=5因子分解为:2*3*5,2*15,3*10,5*6,30。a(180)=5因子分解为:2*3*5*6,2*3x30,2*6*15,3*6*10,6*30-古斯·怀斯曼2017年10月10日
|
|
MAPLE公司
|
N: =1000:#以获得(1)。。a(否)
A: =矢量(N):
A[1]:=1:
对于从2到n的n do
如果numtheory:-issqrfree(n),则
S: =[1..N/N]美元;T: =n*S;A[T]:=A[T]+A[S]
fi;
日期:
|
|
数学
|
sqfacs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,选择[sqfacs[n/d],Min@@#>d&]],{d,选择[Rest[Divisors[n]],SquareFreeQ]}]];
表[长度[sqfacs[n]],{n,100}](*古斯·怀斯曼2017年10月10日*)
|
|
黄体脂酮素
|
(哈斯克尔)
导入数据。列表(子序列,genericIndex)
a050326 n=通用索引a050326_list(n-1)
a050326_list=1:f 2其中
f x=(如果x/=s,则a050326 s
else长度$filter(==x)$map产品$
子序列$tail$a206778_row x):f(x+1)
其中s=a046523 x
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A161908号
|
| 按行读取的数组,其中第n行列出了n的大于等于sqrt(n)的除数。 |
|
+10 38
|
|
|
1, 2, 3, 2, 4, 5, 3, 6, 7, 4, 8, 3, 9, 5, 10, 11, 4, 6, 12, 13, 7, 14, 5, 15, 4, 8, 16, 17, 6, 9, 18, 19, 5, 10, 20, 7, 21, 11, 22, 23, 6, 8, 12, 24, 5, 25, 13, 26, 9, 27, 7, 14, 28, 29, 6, 10, 15, 30, 31, 8, 16, 32, 11, 33, 17, 34, 7, 35, 6, 9, 12, 18, 36, 37, 19, 38, 13, 39, 8, 10, 20, 40, 41, 7, 14, 21, 42, 43, 11, 22, 44, 9, 15, 45, 23, 46, 47, 8, 12, 16
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
数组开始:
1;
2;
三;
2,4;
5;
3,6;
7;
4,8;
3,9;
5、10;
11;
4,6,12;
13;
7,14;
5,15;
4,8,16;
|
|
数学
|
表[Select[Divisors[n],#>=Sqrt[n]&],{n,100}]//展平(*哈维·P·戴尔2021年1月1日*)
|
|
黄体脂酮素
|
(哈斯克尔)
a161908 n k=a161908_tabf!!(n-1)!!(k-1)
a161908_row n=a161908-tabf!!(n-1)
a161908_tabf=压缩
(\x ds->反转$map(div x)ds)[1..]a161906_tabf
|
|
交叉参考
|
-严格上级:A048098型,A064052号,A140271号,A238535型,A341594飞机,A341595型,A341642飞机,A341643型,A341644型,A341645型,A341646飞机.
|
|
关键词
|
容易的,非n,标签
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 3, 1, 2, 1, 1, 2, 3, 1, 1, 2, 4, 1, 3, 1, 2, 1, 1, 2, 3, 4, 1, 1, 2, 1, 3, 1, 2, 4, 1, 1, 2, 3, 5, 1, 1, 2, 4, 1, 3, 1, 2, 1, 5, 1, 2, 3, 4, 1, 1, 2, 1, 3, 1, 2, 4, 5, 1, 1, 2, 3, 6, 1, 1, 2, 4, 1, 3
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,6
|
|
评论
|
如果d<n/d,我们将除数d|n定义为严格次除数A056924号(n) ●●●●。
|
|
链接
|
|
|
例子
|
三角形开始:
1: {} 16: 1,2 31: 1
2: 1 17: 1 32: 1,2,4
3: 1 18: 1,2,3 33: 1,3
4: 1 19: 1 34: 1,2
5: 1 20: 1,2,4 35: 1,5
6: 1,2 21: 1,3 36: 1,2,3,4
7:1 22:1,2 37:1
8: 1,2 23: 1 38: 1,2
9: 1 24: 1,2,3,4 39: 1,3
10: 1,2 25: 1 40: 1,2,4,5
11: 1 26: 1,2 41: 1
12: 1,2,3 27: 1,3 42: 1,2,3,6
13: 1 28: 1,2,4 43: 1
14: 1,2 29: 1 44: 1,2,4
15: 1,3 30: 1,2,3,5 45: 1,3,5
|
|
数学
|
表[Select[Divisors[n],#<n/#&],{n,100}]
|
|
交叉参考
|
-上级:A033677号,A051283号,A059172号,A063538号,A063539美元,A070038号,A116882号,A116883号,A341591飞机,人民币341592元,A341593飞机,A341675型,A341676飞机.
-严格上级:A048098型,A064052号,邮编140271,A238535型,A341594飞机,A341595型,A341642飞机,A341643型,A341644型,A341645型,A341646飞机.
|
|
关键词
|
非n,标签
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 20, 22, 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 36, 39, 40, 41, 43, 44, 45, 47, 48, 50, 51, 52, 54, 55, 58, 59, 60, 62, 64, 65, 66, 67, 68, 72, 73, 75, 78, 79, 80, 81, 82, 83, 85, 86, 87, 88, 90, 93, 94
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
n的素数指数是一个数字m,素数(m)除以n。
|
|
链接
|
|
|
例子
|
条目A302242型描述了正整数和多集多系统之间的对应关系。在这种情况下,它给出了以下集合多系统的序列。
01: {}
02: {{}}
03: {{1}}
04: {{},{}}
05: {{2}}
06: {{},{1}}
08: {{},{},{}}
09: {{1},{1}}
10: {{},{2}}
11: {{3}}
12: {{},{},{1}}
13: {{1,2}}
15:{{1},{2}}
16: {{},{},{},{}}
17: {{4}}
18: {{},{1},{1}}
20: {{},{},{2}}
22: {{},{3}}
24: {{},{},{},{1}}
25: {{2},{2}}
26: {{},{1,2}}
27: {{1},{1},{1}}
29: {{1,3}}
30: {{},{1},{2}}
31: {{5}}
32: {{},{},{},{},{}}
|
|
数学
|
选择[Range[100],或[#===1,以及@@SquareFreeQ/@PrimePi/@FactorInteger[#][[All,1]]&]
|
|
黄体脂酮素
|
(PARI)ok(n)={!#select(p->!issquarefree(primepi(p)),factor(n)[,1])}\\安德鲁·豪罗伊德2018年8月26日
|
|
交叉参考
|
参见。A000961号,A001222号,A003963号,A005117号,A007716号,A050320型,A056239号,A063834号,A076610型,1970年2月,A275024型,A281113型,A296119型,A301753型,A302242型,A302243,A302491型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A318360型
|
| 多重数是n的素数指标的多集的集多部分(集的多集)数。 |
|
+10 31
|
|
|
1, 1, 1, 2, 1, 2, 1, 5, 3, 2, 1, 6, 1, 2, 3, 15, 1, 9, 1, 6, 3, 2, 1, 21, 4, 2, 16, 6, 1, 10, 1, 52, 3, 2, 4, 35, 1, 2, 3, 22, 1, 10, 1, 6, 19, 2, 1, 83, 5, 13, 3, 6, 1, 66, 4, 22, 3, 2, 1, 41, 1, 2, 20, 203, 4, 10, 1, 6, 3, 14, 1, 153, 1, 2, 26, 6, 5, 10, 1
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
链接
|
|
|
配方奶粉
|
素数(p)的a(p)=1。
a(素数(i)*素数(j))=最小值(i,j)+1。
|
|
例子
|
{1,1,2,3}的a(12)=6集多部分:
{{1},{1,2,3}}
{{1,2},{1,3}}
{{1},{1},{2,3}}
{{1},{2},{1,3}}
{{1}、{3}、{1、2}}
{{1},{1},{2},{3}}
|
|
数学
|
nrmptn[n_]:=联接@@MapIndexed[表[#2[[1]],{#1}]&,如果[n==1,{},展平[Cases[FactorInteger[n]//反转,{p_,k_}:>表[PrimePi[p],{k}]]];
sqfacs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,选择[sqfacs[n/d],Min@@#>=d&]],{d,选择[Rest[Divisors[n]],SquareFreeQ]}]];
表[长度[sqfacs[Times@@Prime/@nrmptn[n]],{n,80}]
|
|
黄体脂酮素
|
(PARI)
permcount(v)={my(m=1,s=0,k=0,t);对于(i=1,#v,t=v[i];k=if(i>1&&t==v[i-1],k+1,1);m*=t*k;s+=t);s!/m}
sig(n)={my(f=因子(n));concat(向量(f~,i,向量(f[i,2],j,素数))}
count(sig)={my(n=vecsum[sig),s=0);对于部分(p=n,my(q=prod(i=1,#p,1+x^p[i]+O(x*x^n)));s+=prod(i=1,#sig,polcoef(q,sig[i])))*permcount(p));s/n!}
a(n)={if(n==1,1,my(s=sig(n));if(#s<=2,if(s==1,1,min(s[1],s[2])+1),count(sig(n))}\\安德鲁·豪罗伊德2018年12月10日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 4, 1, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 4, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 5, 1, 1, 2, 2, 1, 1, 1, 4, 1, 1, 1, 4, 1, 1, 1, 3, 1, 4, 1, 2, 1, 1, 1, 5, 1, 2, 2, 4, 1, 1, 1, 3, 1, 1, 1, 5, 1, 1, 1, 4, 1, 1, 1, 2, 2,1、1、8
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,12
|
|
评论
|
我们定义了将n分解为因子>1的因子,如果它确实具有A001221号(n) 因素。
|
|
链接
|
|
|
例子
|
n=12,24,36,72,120,144,180的a(n)联合平衡因子分解:
2*6 3*8 4*9 8*9 3*5*8 2*72 4*5*9
3*4 4*6 6*6 2*36 4*5*6 3*48 5*6*6
2*12 2*18 3*24 2*2*30 4*36 2*2*45
3*12 4*18 2*3*20 6*24 2*3*30
6*12 2*4*15 8*18 2*5*18
2*5*12 9*16 2*6*15
2*6*10 12*12 2*9*10
3*4*10 3*3*20
3*4*15
3*5*12个
3*6*10
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[长度[Select[facs[n],长度[#]==PrimeNu[n]&]],{n,100}]
|
|
黄体脂酮素
|
(PARI)A340596(n,m=n,om=omega(n))=如果(1==n,(0==om),sumdiv(n,d,if(d>1)&&(d<=m),A340596(n/d,d,om-1))\\安蒂·卡图恩2024年6月10日
|
|
交叉参考
|
其他平衡相关序列:
参见。A003963号,A006141号,A050320型,A112798号,17409年1月,A324518型,A339846飞机,A339890型,A340607飞机,A340656型,A340657型.
|
|
关键词
|
非n,改变
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0、1、1、1、1、2、1、2、1、2、1、3、1、2、1、3、1、2、2、1、3、1、2、2、2、2、4、1、2、2、2、3、1、2、3、1、4、1、2、3、2、1、4、1、3、2、1、4、2、3、2、2、1、5、1、2、3、2、2、4、1、2、4、1、2、3,2,2,4,1,3,2,2,1,5,2,2,2
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,6
|
|
评论
|
|
|
链接
|
|
|
例子
|
选定n的严格次无平方因子:
n=1 2 6 12 30 60 120 210 240 420 630 1050 1260
--------------------------------------------------------
{} 1 1 1 1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3 3
5 5 5 5 5 5 5 5 5
6 6 6 6 6 6 6 6
10 7 10 7 7 7 7 7
10 15 10 10 10 10
14 14 14 14 14
15 15 15 15
21 21 21
30 30
35
|
|
数学
|
表[Length[Select[Divisors[n],SquareFreeQ[#]&#<n/#&]],{n,100}]
|
|
交叉参考
|
-上级:A051283号,A059172号,A063538号,A063539号,A070038号,A116882号,A116883号,A161908号,A341591飞机,A341593,A341675型,A341676飞机.
-严格上级:A048098型,A064052号,A140271号,238535英镑,A341594飞机,A341642飞机,A341643型,A341644型,A341645型,A341646飞机,A341673型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.024秒内完成
|