%I#30 2023年10月27日22:03:01

%S 0,3,7,27,15427,55,31215219111119,6343144349223239，

%电话：1879127171986317558918878793423447495477934513447255，

%电话：343935031727273551967178717751416717831759111903895785599195969076895708755983511709968791404370073455

%N在A072347中首次出现N的位置。

%由于A072347（2k）=A072347（楼层（k/2））和A072347（4k+1）=A072347（2k+1），因此对于n>1，C a（n）==3（mod 4）。-_罗伯特·伊斯雷尔（Robert Israel），2016年5月4日

%H Alois P.Heinz，n表，n（n）表示n=1..10000（前3341项来自Robert Israel）

%H Rémy Sigrist，n=1..10000时a（n）的彩色对数散点图

%p#使用A072347中的程序a

%p R[1]：=0：

%p代表n从3到100000乘以4do

%p v：=a（n）；

%p如果未赋值（R[v]），则R[v]:=n

%功率因数

%日期：

%分配（R[n]）时，从1开始p代表n，做od：

%p序列（R[i]，i=1..n-1）；#_罗伯特·伊斯雷尔（Robert Israel），2016年5月4日

%t块[{c，s}，c[w_]：=使用[{n=Length@w}，其中[n==0，1，n==1，First@w，True，Last[w]c[Most@w]+c[Most@Most@w]]]；s={1}~连接~数组[c[IntegerDigits[#，2]]&，10^4]；TakeWhile[Array[-1+FirstPosition[s，#][[1]]&，50]，IntegerQ]]（*_Michael De Vlieger_，2018年1月20日，在A072347*的Jean-François Alcover_之后）

%Y参考A072347。

%K nonn，看

%O 1,2号机组

%A _Jeffrey Shallit，2016年5月2日