登录
在正整数中:用前k个数字替换k*(k+1)/2。
9

%I#21 2022年6月4日13:22:18

%S 1,2,2,4,5,1,2,3,7,8,9,12,3,4,11,12,13,14,12,3,16,17,18,19,20,

%T 1,2,3,4,5,6,22,23,24,25,26,1,2,3,4,5,6,7,29,31,32,33,34,35,1,2,

%U 3,4,5,6,7,8,37,38,39,40,41,42,43,44,1,2,3,4

%N在正整数中:用前k个数字替换k*(k+1)/2。

%Ca(A002061(n))=1;

%C a(A253169(n))=n和a(m)!=n表示m<A253169(n);

%C a(A000537(n))=A000217(n)和a(m)!=A000217(n)适用于m<A000537(n);

%C请参见A004202和A014132,了解大于1的记录值,以及它们出现的位置:A014132(n)=a(A004202(n))。

%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>

%e、。A000217 |1、3、6、10、15。

%e、。A000027|_,2,___,4,5,_____,7,8,9,_______,11,12,13,14,_________,16,。。。

%e、。A002260|1、1,2、1,2,3、1,2,3,4、1,2,4,5、,

%e、--------+-------------------------------------------------------------

%e、。a(n)|1,2,2,4,5,1,2,3,7,8,9,1,2,4,4,11,12,13,14,12,3,4,5,16,17,。。。

%t表[If[OddQ[Sqrt[8n+1]],范围[(Sqrt[0n+1]-1)/2],n],{n,50}]//平展(*哈维·P·戴尔,2019年6月1日*)

%o(哈斯克尔)

%o a256188 n=a256188_列表!!(n-1)

%o a256188_list=f 0[1..]a002260_tabl其中

%o f k xs(zs:zss)=us++zs++f(k+1)vs zss

%o其中(us,v:vs)=splitAt k xs

%Y参见A255437、A000217、A014132、A002260、A000537、A004202、A014132A002061、A255878(第一差异)、A25587(部分总和)。

%K nonn公司

%O 1,2号机组

%A _Reinhard Zumkeller,2015年3月26日