|
| |
|
| A196415号 |
| n的值，使（前n个复合数的乘积）/（前n组合数的和）为整数。 |
|
7
|
|
|
|
1, 4, 7, 10, 13, 15, 16, 21, 32, 33, 56, 57, 60, 70, 77, 80, 83, 84, 88, 92, 93, 97, 112, 114, 115, 120, 122, 130, 134, 141, 147, 153, 155, 164, 165, 188, 191, 196, 201, 202, 213, 222, 225, 226, 229, 243, 245, 248, 252, 260, 264, 265, 268, 273, 274, 281
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
MAPLE公司
|
#首先定义复合数字列表：
tc:=[4、6、8、9、10、12、14、15、16、18、20、21、22、24、25、26、27，
28, 30, 32, 33, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 49,
50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 63, 64, 65, 66, 68, 69,
70, 72, 74, 75, 76, 77, 78, 80, 81, 82, 84, 85, 86, 87, 88];
a1:=n->mul（tc[i]，i=1..n）；
a2:=n->添加（tc[i]，i=1..n）；
sn：=[]；
s0:=[]；
s1：=[]；
s2:=[]；
n从1到40 do
t1:=a1（n）/a2（n）；
如果whattype（t1）=整数，则
sn：=[op（sn），n]；
s0：=[操作（s0），t1]；
s1：=[op（s1），a1（n）]；
s2:=[op（s2），a2（n）]；
fi；
日期：
锡；s0；s1；s2；
#或者
对于1到1000 do的n
printf（“%d，”，n）；
结束条件：；
|
|
|
数学
|
c=选择[Range[2，355]！PrimeQ@#&]；p=1；s=0；选择[Range@长度@c，型号[p*=c[[#]]，s+=c[#]]==0&](*乔瓦尼·雷斯塔，2013年4月3日*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（元素索引）
a196415 n=a196415_列表！！（n-1）
a196415_列表=
地图（+1）$elemIndices 0$zipWith mod a036691_list a053767_list
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
已批准
|
| |
|
|
