|
| |
| |
|
|
|
1, 2, 6, 4, 30, 12, 210, 60, 8, 2310, 36, 420, 24, 30030, 180, 4620, 120, 510510, 1260, 72, 60060, 16, 900, 840, 9699690, 13860, 360, 1021020, 48, 6300, 9240, 223092870, 180180, 2520, 19399380, 240, 69300, 216, 120120, 6469693230, 1800, 3063060, 144, 44100, 27720, 446185740, 1680, 900900, 1080, 2042040, 200560490130, 12600, 58198140, 32, 720
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
A025487号（5） =8=2^3有（3）的素数签名。与（3）共轭的配分是（1,1,1）A025487号素数签名是30=2*3*5（或2^1*3^1*5^1）。因此，a（5）=30。
|
|
|
数学
|
f[n_]：=块[{ww，dec}，dec[x_]：=应用[Times，MapIndexed[Prime[First@#2]^#1&，x]]；ww=NestList[Append[#，1]&，{1}，#-1]&[2+Length@NestWhileList[NextPrime@#&，1，Times@@{#}<=n&，All]]；{{0}}~Join~Map[Block[{w=#，k=1}，Sort@Apply[Join，{{ConstantArray[1，Length@w]}，If[Length@#==0，#，#[1]]}]&@Reap[Do[If[#<=n，Sow[w]；k=1，如果[k>=Length@w，Break[]，k++]]&@dec@Set[w，If[k==1，MapAt[#+1&，w，k]，PadLeft[#，Length@w，First@#]&@Drop[MapAt[#+Boole[i>1]&，w；排序[Map[｛Times@@MapIndexed[Prime[First@#2]^#1&，#]，Times@@MapIndexed[Prime[First@#2]^#1&，Table[LengthWhile[#1，#>=j&]，｛j，#2｝]]&@@｛#，Max[#]}｝&，Join@@f[2310]][[All，-1]](*迈克尔·德弗利格2018年10月16日*）
|
|
|
黄体脂酮素
|
（PARI）partitionConj（v）=向量（v[1]，i，和（j=1，#v，v[j]>=i））
素数签名（n）=vecsort（因子（n）[，2]~，4）
f（n）=如果（n==1，返回（1））；my（e=partitionConj（primeSignature（n））~）；factorback（concat（Mat（素数（#e）~），e））
A025487号=[2, 4, 6, 8, 12, 16, 24, 30, 32, 36, 48, 60, 64, 72, 96, 120, 128, 144, 180, 192, 210, 216, 240, 256, 288, 360, 384, 420, 432, 480, 512, 576, 720, 768];
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
