|
| |
|
| A332977飞机 |
| 由行读取的三角形T（n，k），其中第n行按递增顺序列出满足Omega（m）+pi（gpf（m））-[m<>1]=n的所有整数m；n> =0，1<=k<=A011782号（n） ●●●●。 |
|
6
|
|
|
|
1, 2, 3, 4, 5, 6, 8, 9, 7, 10, 12, 15, 16, 18, 25, 27, 11, 14, 20, 21, 24, 30, 32, 35, 36, 45, 49, 50, 54, 75, 81, 125, 13, 22, 28, 33, 40, 42, 48, 55, 60, 63, 64, 70, 72, 77, 90, 98, 100, 105, 108, 121, 135, 147, 150, 162, 175, 225, 243, 245, 250, 343, 375, 625
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
如果m的最大素数因子（或空素数因子集为0）的指数加上m的其他素数因子的基数（以重数计算）等于n，则整数m>0列在第n行。
第n+k-1行包含素数（n）^k（对于所有n，k>=1）。
|
|
|
链接
|
|
|
|
例子
|
三角形T（n，k）开始于：
1;
2;
3, 4;
5, 6, 8, 9;
7, 10, 12, 15, 16, 18, 25, 27;
11, 14, 20, 21, 24, 30, 32, 35, 36, 45, 49, 50, 54, 75, 81, 125;
...
|
|
|
MAPLE公司
|
b： =proc（n，i）选项记忆`如果`（n=0，[1]），排序（[seq（map（x->x*
ithprime（j），b（n-`if`（i=0，j，1），j））[]，j=1..` if`（i=0，n，i）]）
结束时间：
T： =n->b（n，0）[]：
seq（T（n），n=0..7）；
|
|
|
数学
|
b[n_，i_]：=b[n，i]=如果[n==0，{1}，排序[Flatten[Table[#*
素数[j]&/@b[n-如果[i==0，j，1]，j]，{j，1，如果[i==0，n，i]}]]]；
T[n]：=b[n，0]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n，标签
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
