%I#42 2016年4月19日01:23:08
%S 2,4,3,6,9,5,8,15,25,7,10,21,35,49,11,12,27,55,77121,13,14,33,65,91,
%电话143169,17,16,39,85119187221289,19,18,45,95133209247323361,
%电话:23,20,51115161253299391437529,29,22,57125203319377493551667
%N埃拉托斯坦的筛,排列成阵列,由反对偶读作A(1,1)、A(1,2)、A。。。
%这是大于1的自然数的排列。
%C来自安蒂·卡图内恩,2014年12月19日:(开始)
%C如果我们在这里假设a(1)=1(但由于数组外的原因没有显式包含),那么A252460给出了一个逆置换。另见A249741。
%C对于在此阵列中导航:
%C A055396(n)给出了n出现的行的行号,A078898(n)则给出了其列号,两者的索引都是从1开始的。
%C A250469(n)给出n正下方的数字,当n是大于等于3的奇数时,A250470(n)则给出n正上方的数字。如果n是复合数,A249744(n)将给出n正左侧的数字。
%C每行的第一个立方体,即{该行的初始素数}^3,也是第一个既不是素数也不是半素数的数,出现在第n行的A250474(n)位置。
%C(结束)
%C第n行包含最小素数因子为第n素数的数字:A020639(T(n,k))=A000040(n)_富兰克林·亚当斯·沃特斯,2015年8月7日
%H Antti Karttunen,<a href=“/A083221/b083221.txt”>n的表,a(n)表示n=2..3487;阵列的前83个反对角线被夷为平地</a>
%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>
%e阵列的左上角:
%e 2、4、6、8、10、12、14、16、18、20、22、24、26
%e第3、9、15、21、27、33、39、45、51、57、63、69、75页
%e第5、25、35、55、65、85、95、115、125、145、155、175、185页
%电子邮箱:7、49、77、91、119、133、161、203、217、259、287、301、329
%e 11、121、143、187、209、253、319、341、407、451、473、517、583
%电子邮箱:13、169、221、247、299、377、403、481、533、559、611、689、767
%电子邮箱:17、289、323、391、493、527、629、697、731、799、901、1003、1037
%电子邮箱:19、361、437、551、589、703、779、817、893、1007、1121、1159、1273
%电子邮箱23、529、667、713、851、943、989、1081、1219、1357、1403、1541、1633
%e 29、841、899、1073、1189、1247、1363、1537、1711、1769、1943、2059、2117
%e。。。
%t极限=11;a=表[Take[Prime[n]Select[Range[lim^2],GCD[#Prime@n,Product[Prime@i,{i,1,n-1}]==1&],lim],{n,lim}];扁平[表[a[[i,n-i+1]],{n,lim},{i,n}]]
%o(方案,带有_Antti Karttunen_的IntSeq-library)
%o(定义(A083221 n)(如果(<=n 1)n(A08322 1bi(A002260(-n 1)))(A004736(-n 2)));;给出1换1,然后给出这个方阵的项:(A083221 2)=2,(A083221 3)=4,等等。
%o(定义(A083221bi行列)((rowfun_n_for_A083221行)列)
%o(definec(rowfun_n_for_A083221 n)(如果(=1 n)(λ
%o(定义(A000040 n)((rowfun_n_for_Esieven)1)
%o(definec(rowfun_n_for_Esieven)(如果(=1 n)(lambda(n)(+1 n))(let*((prevrowfun(rowfun_n_for _Esieve(-n 1)))(prevprime(prevlowfun 1)),)(复合prevrowofun(NONZERO-POS 1(lambda(i)(模数(prevrolfun i)prevprim))))
%o_Antti Karttunen,2014年12月19日
%A083140的Y转座。
%Y一个大于A249741。
%Y逆置换:A252460。
%Y第1列:A000040,第2列:A001248。
%Y行1:A005843,行2:A016945,行3:A084967,行4:A084968,行5:A084969,行6:A084970。
%Y主对角线:A083141。
%Y每列中的第一个半素数出现在A251717;A251718和A251719以及附加标准。A251724给出了后者的相应半素数。另见A251728。
%基于此数组和A246278之间映射数的Y排列:A249817、A249818、A250244、A250255、A250147、A250149。另请参见:A249811、A249814、A249815。
%Y也用于以下排列数组的定义:A249821、A251721、A2512。
%Y参见A002260、A004736、A004280、A020639、A038179、A055396、A078898、A138511、A249820、A249730、A249 735、A249 744、A250469、A250470、A25047、A250442、A250744。
%K non,tabl,听着
%氧2,1
%A _Yasutoshi Kohmoto,2003年6月5日
%E更多术语摘自Hhugo Pfoertner_,2003年6月13日
|