%I#6 2018年5月31日08:15:09

%S 1,2,2,2,3,1,3,2,2,2,2,4,2,5,4,3,1,2,5,1,33,3,2,2,2,5,6,2，

%温度2,5,2,6,3,1,7,7,2,5,2,7,2,2,4,7,2.2,7,3,12,7,3,3,5,2,2,8,3,1.5，

%U 5,2,2,5,3,4,4,2,7,4,2,2,7,1,2,9,5,5,2,7,3,5,5，5,5,1,1,5,1,5,2

%A278222（A304760（N））的N限制生长序列变换，由A254103（N）以3为基数的1位游程构造。

%C对于所有i，j:A304740（i）=A304740-（j）=>a（i）=a（j）。

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

%o（PARI）

%o A254103（n）=如果（！n，n，如果（；

%o A289813（n）={my（d=数字（n，3））；从数字（向量（#d，i，如果（d[i]==1，1，0）），2）；}\\从A289812

%o A304760（n）=A289813（A254103（n））；

%o A005940（n）={my（p=2，t=1）；n--；直到（！n\=2，if（（n%2），（t*=p），p=下一素数（p+1））；t}；

%o A046523（n）={my（f=vecsort（factor（n）[，2]，4），p）；prod（i=1，#f，（p=nextprime（p+1））^f[i]）；}；\\来自A046523

%o A27822（n）=A046523（A005940（1+n））；

%o rgs_transform（invec）={my（om=Map（），outvec=vector（length（invec）），u=1）；对于（i=1，长度（invesc），如果（mapisdefined（om，invec[i]），my（pp=mapget（om，invec[i]；

%o v305301=rgs_transform（矢量（65538，n，A278222（A304760（n-1）））；

%o A305301（n）=v305301[1+n]；

%Y参见A254103、A289813、A304740、A304760。

%Y另请参阅A305302、A305303。

%K nonn，基础

%0、2

%A _Antti Karttunen，2018年5月30日