%I#6 2018年6月7日22:07:17

%S 0,1,3,2,6,4,12,8,9,11,10,14,30,16,17,19,18,22,20,28,24,25,27,26,31,5，

%电话：7,15,13,29,21,23,87,64,65,67,66,70,68,76,72,73,75,74,78,94,80,81,83，

%U 82,86,84,92,88,89,91,90,95,69,71,79,77,93,85117,32,33,41,40,44,36,52,48,59,57,56,20124,96,97105104108100116112113121120125单位

%N非负整数的可疑置换：a（N）=A052331（A282291（1+N））。

%序列为A003188、A006068、A300838、A302846、A303765、A3037.67、A304083和A304533的C类共享，当从任何a（n）移动到a（n+1）时，0位子集被打开（更改为1），或1位子集被关闭（更改为0），但在同一步中不会发生这两种更改。

%H Antti Karttunen，n表，n=0..30530的a（n）</a>

%H<a href=“/index/Bi#binary”>为与n的二进制展开相关的序列的索引项</a>

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

%F a（n）=A052331（A282291（1+n））。

%o（PARI）

%o up_to_e=2^15；

%o v050376=矢量（up_to_e）；

%o A050376（n）=v050376【n】；

%o ispow2（n）=（n位和（n，n-1））；

%o i=0；对于（n=1，oo，if（ispow2（isprimepower（n））），i++；v050376[i]=n）；如果（i＝＝up_to_e，break））；

%o A052331（n）=｛my（s=0，e）；while（n>1，fordiv（n，d，if（（（n/d）>1）&&ispow2（isprimepower（n/d）），e=矢量搜索（v050376，n/d）；if（！e，打印（“v050376太短！”）；return（1/0））；s+=2^（e-1）；n=d；break））；（s）；｝；

%o A302853（n）=A052331（A282291（1+n））；\\还需要来自A282291的代码。

%Y参考A302854（反向）。

%Y参见A052331、A282291。

%Y另请参阅A304533。

%K nonn公司

%0、3

%A _Antti Karttunen，2018年5月17日