%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日