显示找到的7个结果中的1-7个。
第页1
0, 0, 0, 0, 0, 0, 0, 6, 0, -6, 0, 12, 0, -6, 0, 30, 0, 24, 0, 12, 0, -24, 0, 48, 0, -24, 60, 24, 0, 24, 0, 114, -20, -42, 0, 84, 0, -42, -10, 60, 0, 48, 0, 12, 60, -48, 0, 168, 0, 6, -30, 24, 0, 132, 0, 108, -30, -78, 0, 96, 0, -72, 120, 390, 0, 44, 0, 12, -30, 36, 0, 288, 0, -96, 60, 24, 0, 58, 0, 228, 360, -114
黄体脂酮素
(PARI)
A003961号(n) ={my(f=因子(n));对于(i=1,#f~,f[i,1]=下一素数(f[i、1]+1));因子返回(f);};
1, 3, 5, 9, 7, 15, 11, 21, 25, 27, 13, 33, 17, 39, 35, 45, 19, 51, 23, 57, 55, 63, 29, 69, 49, 75, 65, 81, 31, 87, 37, 93, 85, 99, 77, 105, 41, 111, 95, 117, 43, 123, 47, 129, 115, 135, 53, 141, 121, 147, 125, 153, 59, 159, 91, 165, 145, 171, 61, 177, 67, 183, 155, 189, 119, 195, 71, 201, 175, 207, 73, 213, 79, 219, 185, 225, 143, 231, 83, 237, 205, 243, 89, 249, 133, 255
配方奶粉
其他身份。对于所有n>=1:
a(2n)=A016945号(n-1)。[按单调顺序将偶数映射到形式6n+3的数字。]
数学
a[1]=1;a[n]:=If[PrimeQ[n],NextPrime[n],m1=p1=FactorInteger[n][1,1]];对于[k1=1,m1<=n,m1+=p1;如果[m1==n,Break[];如果[FactorInteger[m1][[1,1]]==p1,k1+]];m2=p2=下一个素数[p1];对于[k2=1,True,m2+=p2,如果[FactorInteger[m2][[1,1]]==p2,k2++];如果[k1+2==k2,返回[m2]]];数组[a,100](*Jean-François Alcover公司2016年3月8日*)
g[n_]:=如果[n==1,0,PrimePi@FactorInteger[n][[1,1]]];函数[s,MapIndexed[Lookup[s,g[First@#2]+1][[#1]]-Boole[First@#2==1]&,#]&@Map[Position[Lookup[s,g@#],#][[1,1]&,Range@120]]@PositionIndex@Array[g,10^4]](*迈克尔·德弗利格,2017年3月8日,第10版*)
交叉参考
囊性纤维变性。A000040美元,A003961号,A016945号,A046523号,A055396号,A078898号,A083140型,A083221号,A084967号,A249744型,A249810型,A249820型,A249817型,A249818型,A250471型,A266645型,208692元,A280693型,A283465号.
1, 3, 5, 9, 7, 15, 11, 3, 25, 3, 13, 3, 17, 3, 35, 9, 19, 3, 23, 3, 55, 3, 29, 3, 49, 3, 5, 9, 31, 3, 37, 3, 5, 3, 77, 15, 41, 3, 5, 9, 43, 3, 47, 3, 5, 3, 53, 3, 121, 147, 5, 153, 59, 3, 91, 33, 5, 3, 61, 3, 67, 3, 5, 27, 119, 195, 71, 3, 5, 3, 73, 3, 79, 3, 5, 9, 143, 3, 83, 3, 5, 3, 89, 3, 133, 3, 5, 9, 97, 3, 187, 3, 5, 3, 161
数学
f[n_]:=f[n]=其中[n==1,1,PrimeQ@n,NextPrime@n,True,Times@@Replace[FactorInteger[n],{p_,e_}:>f[p]^e,1]];g[n_]:=如果[n==1,0,PrimePi@FactorInteger[n][[1,1]]];函数[s,MapIndexed[GCD[Lookup[s,g[First@#2]+1][[#1]]-Boole[First@#2==1],f@First@@#2]&,#]&@Map[Position[Lookup[s,g@#],#][[1,1]]&,Range@120]]@PositionIndex@Array[g,10^4](*迈克尔·德弗利格2017年3月8日*)
1, 2, 3, 4, 5, 6, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 29, 31, 35, 37, 41, 43, 47, 49, 50, 52, 53, 55, 59, 61, 65, 66, 67, 71, 73, 77, 79, 83, 85, 89, 91, 95, 97, 101, 103, 107, 109, 113, 115, 119, 121, 127, 131, 133, 137, 139, 143, 149, 151, 157, 161, 163, 167, 169, 173, 179, 181, 186, 187, 191, 193, 197, 199, 203
评论
对于该序列的大多数项kA003961号(k) 也包括在术语中。例外情况包括:50、52、66、186、435、1245、1445、2068、2085、11605。。。这似乎是所有包含两个以上基本因子的术语的子序列:50、52、66、186、435、1245、1445、2068、2085、8695、11605。。。
数学
f[n_]:=f[n]=其中[n==1,1,PrimeQ@n,NextPrime@n,True,Times@@Replace[FactorInteger[n],{p_,e_}:>f[p]^e,1]];g[n_]:=如果[n==1,0,PrimePi@FactorInteger[n][[1,1]]];使用[{nn=204},函数[s,函数[t,Select[Range@nn,f@#==t[[#]]@MapIndexed[Lookup[s,g[First@#2]+1][[#1]]-Boole[First@#2==1]&,#]&@Map[Position[Lookup[s,g@#],#][[1,1]]&,Range@nn]]@PositionIndex@Array[g,10^4]](*迈克尔·德弗利格,2017年3月8日,第10版*)
1, 1, 1, -1, 3, -3, 3, -5, -7, -7, 9, -9, 9, -11, -5, -13, 15, -15, 15, -17, -13, -19, 17, -21, 1, -23, -11, -25, 27, -27, 25, -29, -19, -31, -7, -33, 33, -35, -17, -37, 39, -39, 39, -41, -25, -43, 41, -45, -23, -47, -23, -49, 47, -51, 19, -53, -31, -55, 57, -57, 55, -59, -29, -61, 11, -63, 63, -65, -37
0, 0, 1, 2, 1, 3, 3, 6, 12, 9, 1, 5, 3, 15, 11, 14, 1, 12, 3, 15, 23, 27, 5, 9, 18, 33, 25, 25, 1, 15, 5, 30, 37, 45, 29, 14, 3, 51, 39, 27, 1, 27, 3, 45, 37, 63, 5, 17, 64, 54, 53, 55, 5, 39, 19, 45, 65, 81, 1, 9, 5, 87, 51, 62, 35, 51, 3, 75, 79, 63, 1, 18, 5, 105, 61, 85, 47, 63, 3, 51, 84, 117, 5, 25, 25, 123, 95
数学
块[{g},g[n_]:=如果[n==1,0,PrimePi@FactorInteger[n] [1,1]]];函数[s,MapIndexed[Lookup[s,g[First@#2]+1][[#1]]-Boole[First@#2==1]-DivisorSigma[1,First@@#2]&,#]&@Map[Position[Lookup[s,g@#],#][[1,1]]&,Range@120]]@PositionIndex@Array[g,10^4]](*迈克尔·德弗利格2021年10月18日*)
0, 1, 2, 5, 2, 9, 4, 13, 16, 17, 2, 21, 4, 25, 20, 29, 2, 33, 4, 37, 34, 41, 6, 45, 24, 49, 38, 53, 2, 57, 6, 61, 52, 65, 42, 69, 4, 73, 56, 77, 2, 81, 4, 85, 70, 89, 6, 93, 72, 97, 74, 101, 6, 105, 36, 109, 88, 113, 2, 117, 6, 121, 92, 125, 54, 129, 4, 133, 106, 137, 2, 141, 6, 145, 110, 149, 66, 153, 4, 157, 124
搜索在0.005秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:2024年9月20日07:49 EDT。包含376067个序列。(在oeis4上运行。)
|