%I#22 2019年12月19日11:38:12
%S 1,3,2,6,4,12,5,15,7,21,8,24,9,27,10,30,11,33,13,39,14,42,16,48,17,51,
%电话:18,54,19,57,20,60,22,66,23,69,25,75,26,78,28,84,29,87,31,93,32,96,34,
%U 102、35105、36108、37111、38114、40120、41123、43129、44132、45135、46
%N对N,3n的列表,其中N是迄今为止最少未使用的数字。
%自然数的排列。
%H T.D.Noe,n的表格,n=1..1000的a(n)</a>
%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>
%F a(2n-1)=A007417(n),a(2n)=3*A007417。
%t A007417=选择[范围[100],(#//IntegerDigits[#,3]//Split//Last//Count[#,0]//EvenQ)&];a[n_]:=如果[OddQ[n],A007417[[(n+1)/2]],3*A007417[[n/2]];表[a[n],{n,1100}](*_Jean-François Alcover_,2013年3月1日,来自公式*)
%o(哈斯克尔)
%o导入数据。列表(删除)
%o a092401 n=a092401_list!!(n-1)
%o a092401_list=f[1..]其中
%o f(x:xs)=x:x':f(删除x'xs)其中x'=3*x
%o——Reinhard Zumkeller,2012年1月3日
%Y参考A036552、A203602(反向)。
%放松,好,不
%O 1,2号机组
%2004年3月22日,菲律宾
|