%I#50 2022年9月8日14:06:22
%S 2,4,3,6,9,5,8,15,25,7,10,27,35,49,11,12,21125,77121,13,14,45,55,
%电话:343143169,17,16,33175,911331221289,19,18,81,655391872197,
%电话:323361,23,20,756251915732474913437529,29,22,63245240120928733916859667841,31
%N素数移位数组:反对偶读取的平方数组:A(1,col)=2*col,对于行>1,A(row,col。
%C通过反对偶读取数组:A(1,1)、A(1,2)、A。
%C从数组A242378的第2列开始,每隔一列就可以得到这个数组。
%C大于1的自然数的置换。
%第n行的项都可以被第n个素数A000040(n)整除。
%每一列都在严格增长,同一列中的术语具有相同的主签名。
%C A055396(n)给出了n出现的行的行号,
%C和A246277(n)给出了其列号,均从1开始。
%C发件人:安蒂·卡图宁,2015年1月3日:(开始)
%C A252759(n)给出了它们的总和减去1,即n到左上角的曼哈顿距离。
%C如果我们在这里假设a(1)=1(但由于数组外的原因没有显式包含),那么A252752给出了逆置换。另见A246276。
%C(结束)
%H Antti Karttunen,n表,n=2..1276的a(n);数组的前50个反对偶</a>
%F A(1,col)=2*col,对于行>1,A(行,col,列)=A003961(A(行-1,列))。
%F作为其他类似序列的组合:
%F a(n)=A122111(A253561(n))。
%F a(n)=A249818(A083221(n))。
%F对于所有n>=1,a(n+1)=A005940(1+A253551(n))。
%F A(n,k)=A341606(n,c)*A355925(n,b)_Antti Karttunen_,2022年7月22日
%e阵列的左上角:
%e 2、4、6、8、10、12、14、16、18。。。
%e 3、9、15、27、21、45、33、81、75。。。
%e 5、25、35、125、55、175、65、625、245。。。
%e 7、49、77、343、91、539、119、2401、847。。。
%e 11、121、143、1331、187、1573、209、14641、1859。。。
%e 13、169、221、2197、247、2873、299、28561、3757。。。
%tf[p_?素数Q]:=f[p]=素数[PrimePi@p+1];f[1]=1;f[n_]:=f[n]=次数@@(f[First@#]^Last@#&)/@FactorInteger@n;块[{lim=12},表[#[[n-k,k]],{n,2,lim},{k,n-1,1,-1}]&@NestList[Map[f,#]&,表[2k,{k、lim}],lim]]//Flatten(*Michael De Vlieger_,2016年1月4日,在A003961*Jean-François Alcover_之后)
%o(方案)
%o(定义(A246278n)(如果(<=n 1)n(A246278bi(A002260(-n 1))(A0047336(-n 1))));;方形数组以偏移量=2开始,我们也在这里默认了一个(1)=1。
%o(定义(A246278bi行列)(如果(=1行)(*2列)(A003961(A246278bi(-行1)列)))
%Y第一行:A005843(偶数),从2开始。
%Y行2:A249734,行3:A249827。
%Y列1:A000040(素数),列2:A001248(素数平方),列3:A006094(两个连续素数的乘积),列4:A030078(素数的立方)。
%Y转座:A246279。
%Y逆置换:A252752。
%Y一个大于A246275。
%Y参见A005940、A242378、A246259、A000040、A002260、A004736、A003961、A055396、A083221、A114537、A246277(A348717条款减半)、A246675、A246684、A249818、A252759、A253515。
%通过将特定函数(在括号中给出)应用于此数组的项而获得的Y数组。列单调增长的情况用*表示:A249822(A078898)、A253551(*A156552,A355924(A342671)、A355925(A009194)、A3550926(A355442)、A355/927(*西格玛)、A356155(*A258851)。
%Y参见A329050(子表)。
%K nonn,表
%氧2,1
%2014年8月21日,安蒂·卡图内
%E线性序列的起始偏移量从1更改为2,而不影响列和行索引(由_Antti Karttune_于2015年1月3日发布)
|