%I#18 2024年4月28日22:27:53

%编号：6,12,78,201021014,2414173412246,28138216612714171366,40，

%电话：1743174130265011261922622,481865046131827819262057406，

%电话：28960854,5622257661349416790462067546144825414300014754,8024682141396242436862072382275286300137214417447674

%N由反对偶向上读取的平方数组，其中T（N，m）是第N个数，其sigma的对称表示由单峰模式121的m个副本组成（如果m>1，则用0分隔）。

%C这个序列中的每个数字都是偶数，因为奇数q的西格玛的对称表示从101开始。T（n，m）的m列中的每个数字都有2*m个奇数除数。

%C由于u（m）=2*3*13^（m-1），m>=1有2m个奇除数和1<3<4<4*3<13<3*13<4*13<3*4*13<13^2<。。。，u（m）的sigma的对称表示由单峰模式121的m个拷贝组成。因此，表T（n，m）中的每一列（m>=1）包含无限多个条目。当m为素数时，数字u（m）是第m列中的最小项。

%C一般来说：如果m>1，那么T（n，m）=2^k*q，k>=1，q奇数，至少有4个奇数除数，满足

%C d_（2i+2）<2^（k+1）*d_（2i+1）<2^（k+1）*d_（2i+2）<d_（2i+3），

%n的奇数除数d_j递增。

%F T（n，1）=2^k*p，奇素数p满足p<2^（k+1），见A370205。

%F T（n，2）=2^k*p*q，k>0，p和q素数，2<p<2^（k+1）<2^。

%e a（1）=T（1,1）=6，其σ的对称表示SRS（6）具有单峰模式121，在对角线处具有宽度为2的单个单位。

%e a（3）=T（1,2）=78，SRS（78）具有单峰模式1210121；

%e a（10）=T（1,4）=12246，SRS（12246）具有单峰模式12101210210121；

%e sigma的两个对称表示在两部分相交的对角线处的宽度都为0。

%e第m列中的每个数字都有2米的奇数除数。T（1,9）=4174476774。

%e（电子）-------------------------------------------------------------------------

%电子邮箱1 2 3 4 5 6 7 8

%e（电子）-------------------------------------------------------------------------

%电子邮箱1 | 6 78 1014 12246 171366 1922622 28960854 300014754。。。

%e 2 | 12 102 1734 12714 501126 2057406 144825414 300137214。。。

%电子邮箱3 | 20 114 2166 13026 781926 2067546 282275286 300235182。。。

%电话：4|24 138 3174 13182 1679046 2072382 888215334 300357642。。。

%电话：5|28 174 5046 13494 4243686 2081742 3568939926 300431118。。。

%电话：6|40 186 5766 13962 5541126 2091882。。。300602562 ...

%电子邮箱：7|48 222 8214 14118 8487372 2097966 300651546。。。

%电话：8|56 246 10086 14898 11082252 2110134 300896466。。。

%电子邮箱：9|80 258 10092 15054 11244966 2112162 301165878。。。

%电话：10 | 88 282 11094 15366 16954566 2116218 301386306。。。

%e。。。

%t divQ[k_，{d1_，d2_，d3_}]：=d2<2^（k+1）d1&&2^

%t seqQ[t_，m_]：=模块[{oP，k，dL}，oP=NestWhile[#/2&，t，EvenQ[#]&]；k=对数[2，t/oP]；dL=除数[oP]；长度[dL]==2m&&如果[Length[dL]==2，Last[dL:<2^（k+1），AllTrue[Partition[dL，3，2]，divQ[k，#]&]]

%t a372180[{r_，s_}，m_]：=选择[Range[r，s]，seqQ[#，m]&]（*列m中数字的范围r…s*）

%t a372180[｛15366｝，4]（*计算表中的第4列*）

%ta372180[{1，2116218}，6]（*计算表中的第6列*）

%Y行1表示A372181。

%Y列1给出A370205。

%Y列2给出A370206。

%Y参见A235791、A237048、A237270、A237271、A237591、A237.593、A249223、A262045、A341969、A341971、A342592、A3425.94、A342555、A342566、A367377、A370209。

%K nonn，表

%O 1，1

%A _Hartmut F.W.Hoft_，2024年4月21日