搜索: 编号:a004202
|
|
|
|
2, 5, 6, 10, 11, 12, 17, 18, 19, 20, 26, 27, 28, 29, 30, 37, 38, 39, 40, 41, 42, 50, 51, 52, 53, 54, 55, 56, 65, 66, 67, 68, 69, 70, 71, 72, 82, 83, 84, 85, 86, 87, 88, 89, 90, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a=(1,3,4,7,8,9,13,14,…)=A004201号=a或b中尚未出现的最小值>0;
b=(2,5,6,10,11,12,17,18,…)=A004202号=a+s。
作为三角形阵列
2;
5, 6;
10, 11, 12;
17, 18, 19, 20;
(结束)
|
|
数学
|
a=表[n,{n,1210}];b={};Do[a=删除[a,{1,n}];b=追加[b,取[a,{1,n}]];a=下降[a,{1,n}],{n,1,14}];压扁[b]
a[n_]:=如果[n<1,0,其中[{m=圆形@平方[2n]},n+m(m+1)/2]];(*迈克尔·索莫斯2019年5月3日*)
Take[#,(-Length[#])/2]&/@模块[{nn=20},TakeList[Range[nn+nn^2],2*Range[nn]]//展平(*需要Mathematica版本10或更高版本*)(*哈维·P·戴尔2019年5月13日*)
|
|
程序
|
(哈斯克尔)
a004202 n=a004202_列表!!(n-1)
a004202_list=skipTake 1[1..]其中
skipTake k xs=take k(drop k xs)++skipTage(k+1)(drop(2*k)xs
(PARI){a(n)=my(m);如果(n<1,0,m=圆形(sqrt(2*n));n+m*(m+1)/2)}/*迈克尔·索莫斯2019年5月3日*/
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
亚历山大·斯塔辛斯基
|
|
状态
|
已批准
|
|
|
搜索在0.004秒内完成
|