|
1, 2, 6, 4, 30, 12, 36, 8, 210, 60, 180, 24, 900, 72, 216, 16, 2310, 420, 1260, 120, 6300, 360, 1080, 48, 44100, 1800, 5400, 144, 27000, 432, 1296, 32, 30030, 4620, 13860, 840, 69300, 2520, 7560, 240, 485100, 12600, 37800, 720, 189000, 2160, 6480, 96, 5336100, 88200, 264600, 3600, 1323000, 10800, 32400, 288, 9261000
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
链接
|
|
|
配方奶粉
|
a(0)=1,a(1)=2;对于n>1,如果n是偶数,a(n)=A283980型(a(n/2)),如果n是奇数,则a(n)=2*a((n-1)/2)。
|
|
例子
|
这个不规则的表可以表示为二叉树。左边的每个孩子都可以通过应用A283980型给父母,右边的每个孩子都是通过双倍的父母获得的:
1
|
...................2...................
6 4
30......../ \........12 36......../ \........8
/\/\/\/\
/ \ / \ / \ / \
/ \ / \ / \ / \
210 60 180 24 900 72 216 16
等。
|
|
数学
|
块[{a},a[0]=1;a[1]=2;a[n_]:=a[n]=如果[EvenQ@n,(Times@@Map[Prime[PrimePi@#1+1]^#2&@@#&,FactorInteger[#]]-Boole[#==1])*2^IntegerExponent[#,2]&[a[n/2]],2a[(n-1)/2]];数组[a,57,0]]
(*或通过Doudna*)
Map[Times@@Flatten@MapIndexed[ConstantArray[Prime[First[#2]],#1]&,Table[LengthWhile[#1,#>=j&],{j,#2}]&@@{#,Max[#]}&@Sort[Flatten[ConstantArray[PrimePi@#1,#2]&@@@FactorInteger[#]],Greater]&,Nest[Append[#1,Prime[1+BitLength[#2]-DigitCount[#2,2,1]*#1[#2-2^Floor@Log2@#2+1]]]&@@{#,长度@#}&,{1},57]](*迈克尔·德弗利格,2021年3月5日*)
|
|
黄体脂酮素
|
(PARI)
A283980型(n) ={my(f=因子(n));prod(i=1,#f~,my(p=f[i,1],e=f[i,2]);if(p=2,6,下一素数(p+1))^e)};\\发件人A283980型
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|