%I#14 2020年9月13日17:00:52

%S 1,3,2,5,7,4,9,11,13,15,17,6,19,21,8,23,25,27,29,31,10,33,35,12,37,39，

%电话：14,41,43,16,45,47,18,49,51,53,55,57,20,59,61,22,63,65,67,69,71,24,73，

%U 75,26,77,79,28,81,83,30,85,87,32,89,91,93,95,97,34,99

%N反向置换到A092401。

%H Reinhard Zumkeller，n表，n=1..1000时的a（n）</a>

%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

%F a（n）=-2*（总和{k=0..1+楼层（对数（n）/log（3））}（-1）^k*楼层（n/3^（k+1））*（-1+楼层（log（3*n）/llog（3 log（3）}（-1）^k*地板（n/3^k））*（（地板（log（3*n）/log（3)). - _Daniel Hoying，2020年8月6日

%t div[n_，m_]=楼层[n/m//Chop]-天花板[n/m//Chop]（*n不能被m=>-1整除，否则为0*）；ind[m_]：=总和[（-1）^（n）div[m，3^n]，{n，1，Floor[Log[m]/Log[3]//FullSimplify]}]+Mod[Floor[Log[3m]/Log[3]//FullSmplify]，2]；（*返回0或1，具体取决于我们是否有“n”项（=>1）或“3n”项n，0，-1+楼层[Log[m]/Log[3]//FullSimplify]}]）；

%t表[f[k]，{k，1，50}]（*_Daniel Hoying_，2020年8月6日*）

%o（哈斯克尔）

%o导入数据。列表（元素索引）

%o导入数据。也许（地图也许）

%o a203602 n=a203602_列表！！（n-1）

%o a203602_list=map（+1）$mapMaybe（`elemIndex`a092401_list）[1..]

%K nonn公司

%O 1,2号机组

%A _Reinhard Zumkeller，2012年1月3日