搜索： a082187-编号：a082177
|
| |
|
|
A082025号
|
| 不同正整数的平方数组，其中相邻项（正交项和对角项）互素。数组由反对偶函数读取，上下交替。每个条目是尚未使用的最小正整数，与序列中较早的所有相邻条目互素。 |
|
+10
5
|
|
|
|
1, 2, 3, 4, 5, 7, 6, 11, 13, 9, 8, 17, 12, 19, 23, 10, 29, 25, 31, 35, 27, 14, 37, 16, 41, 18, 43, 21, 20, 47, 49, 53, 15, 59, 55, 39, 22, 61, 24, 67, 26, 71, 30, 73, 33, 28, 79, 77, 83, 45, 89, 65, 97, 85, 57, 32, 91, 36, 101, 34, 103, 38, 107, 40, 109, 51, 44, 95, 63, 113
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
1,2
|
|
|
链接
|
|
|
|
例子
|
1 2 7 6 23 10 ...
3 5 11 19 ...
4 13 12。。。
9 17 ...
8 ...
...
T（2,2）=5，它的邻域是1、2、7、11、12、13、4和3，它们都是5的互质。
|
|
|
MAPLE公司
|
iscoprime：=proc（n，m），如果gcd（n，m）=1，则返回（true）；否则返回（false）；fi；结束时间：
isin:=proc（a，n，nmax）for row from 1 to nmax do for col from 1 tonmax do if a[row，col]=n then RETURN（true）；结束；od；od；返回（假）；结束时间：
iscoprMat:=proc（a，candid，row，col，up）如果不是iscoprime（candid、a[row，col-1]），则返回（false）；fi；如果不是iscoprime（candid，a[row-1，col]），则返回（false）；fi；如果不是iscoprime（candid，a[行-1，列-1]），则返回（false）；fi；如果向上，则如果不是iscoprime（candid，a[行+1，列-1]），则返回（false）；fi；否则，如果不是iscoprime（candid，a[row-1，col+1]），则返回（false）；fi；fi；返回（true）；结束时间：
find：=proc（a，row，col，nmax，up）for candid from 1 to 5000000 do if isin（a，candid，nmmax）then next；fi；如果不是（a，candid，row，col，up），那么接下来；fi；a[行，列]：=坦白；返回（a[行，列]）；od；返回（-1）；结束时间：
n最大值：=15；对于从1到nmax的行，对从1到nmax的列执行do，对[row，col]执行a：=-1；od:od:a[1，1]：=1:up：=false：
对于直径从2到nmax的do，如果向上，那么对于col从1到dia的do-行：=直径+1-列；f:=查找（a，row，col，nmax，up）；printf（“%d，”，f）；a[行，列]：=f；od；else表示从1到dia的行do col:=dia+1行；f:=查找（a，row，col，nmax，up）；printf（“%d，”，f）；a[行，列]：=f；od；fi；up:=非up:od:#R.J.马塔尔2006年5月6日
|
|
|
数学
|
dmax=12（*抗糖尿病药物数量*）；
a[1,1]=1；使用={1}；a[_，_]=1；
循环：=对于[i=d-j+1；k=1，True，k++，If[FreeQ[used，k]&AllTrue[{a[i-1，j+1]，a[i-1,j]，a[1，j-1]，a[2，j-1-]，a[i+1，j-1]}，CoprimeQ[k，#]&]，Sow[k]；附加到[已使用，k]；a[i，j]=k；中断[]]]；
{1} ~Join~Reap[Do[If[EvenQ[d]，Do[loop，{j，d，1，-1}]，Do[loop、{j，1，d}]]，{d，2，dmax}]][2，1]](*Jean-François Alcover公司2019年12月14日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 5, 12, 41, 26, 103, 58, 181, 92, 293, 128, 439, 174, 617, 230, 817, 290, 1037, 376, 1225, 446, 1565, 542, 1883, 628, 2227, 746, 2555, 848, 2983, 962, 3409, 1102, 3859, 1238, 4331, 1384, 4823, 1532, 5345, 1684, 5945, 1858, 6539, 2038, 7135, 2218, 7801
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
1,2
|
|
|
链接
|
|
|
|
MAPLE公司
|
b： =proc（t）假结束：b（1）：=true:ncpr:=proc）局部i，m；m： =参数[1]；对于从2到nargs的i，如果igcd（m，args[i]）<>1，则返回真fiod；假端：T:=proc（n，k）选项记忆；局部h，t，l；如果n<1或k<1或n=1且k=1，则t:=1，否则h:=1-2*irem（n+k，2）；l： =T（n-1，k），T（n，k-1），T；对于t，而b（t）或ncpr（t，l）做od-fi；b（t）：=真；t端：seq（t（n，n），n=1..40）#阿洛伊斯·海因茨2009年10月7日
|
|
|
数学
|
b[_]=错误；b[1]=正确；
ncpr[args_]：=模块[{i，m}，m=args[[1]；对于[i=2，i<=长度[args]，i++，如果[GCD[m，args[[i]]]！=1、返回[True]]]；
T[n_，k_]：=T[n，k]=模[{h，T，l}，如果[n<1|k<1||n==1&k==1，T=1，h=1-2*Mod[n+k，2]；l={T[n-1，k]，T[n，k-1]，T[1，k-1]T[n+h，k-h]}；对于[t=1，b[t]||ncpr[Join[{t}，l]]，t++]；b[t]=正确；t] ]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 5, 16, 39, 79, 157, 190, 337, 407, 705, 742, 1147, 1235, 1855, 1836, 2879, 2691, 4067, 3752, 5683, 5005, 7687, 6670, 10117, 8595, 12837, 10950, 15737, 13461, 19621, 16494, 23739, 19925, 28401, 23788, 34057, 28077, 39997, 32842, 47027, 38309
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
1,2
|
|
|
链接
|
|
|
|
MAPLE公司
|
b： =proc（t）选项记忆；假结束：b（1）：=true:ncpr:=proc（）局部i，m；m： =参数[1]；对于从2到nargs的i，如果igcd（m，args[i]）<>1，则返回真fiod；假端：T:=proc（n，k）选项记忆；局部h，t，l；如果n<1或k<1或n=1且k=1，则t:=1，否则h:=1-2*irem（n+k，2）；l： =T（n-1，k），T（n，k-1），T；对于t，而b（t）或ncpr（t，l）做od-fi；b（t）：=真；t结束：seq（加（t（n，1+d-n），n=1..d），d=1..60）#阿洛伊斯·海因茨，2009年10月7日
|
|
|
数学
|
dmax=50（*反诊断人数*）；
a[1,1]=1；使用={1}；a[_，_]=1；
循环：=对于[i=d-j+1；k=1，True，k++，If[FreeQ[used，k]&AllTrue[{a[i-1，j+1]，a[i-1，j]，a[1，j-1]，a[i，j-1]，a[2+1，j-1]}，互质Q[k，#]&]，附加到[used、k]；a[i，j]=k；中断[]]]；
Do[If[EvenQ[d]，Do[loop，{j，d，1，-1}]，Do[loop、{j，1，d}]]，{d，2，dmax}]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 3, 4, 9, 8, 27, 14, 39, 22, 57, 32, 81, 46, 105, 64, 147, 82, 189, 104, 225, 124, 273, 142, 315, 166, 345, 194, 375, 224, 465, 254, 525, 286, 615, 326, 705, 358, 777, 394, 855, 434, 939, 470, 1023, 524, 1113, 572, 1233, 620, 1329, 668, 1395, 722, 1545, 782
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
1,2
|
|
|
链接
|
|
|
|
MAPLE公司
|
b： =proc（t）选项记忆；假结束：b（1）：=true:ncpr:=proc（）局部i，m；m： =参数[1]；对于从2到nargs的i，如果igcd（m，args[i]）<>1，则返回真fiod；假端：T:=proc（n，k）选项记忆；局部h，t，l；如果n<1或k<1或n=1且k=1，则t:=1，否则h:=1-2*irem（n+k，2）；l： =T（n-1，k），T（n，k-1），T；对于t，而b（t）或ncpr（t，l）做od-fi；b（t）：=真；t端：seq（t（n，1），n=1..60）#阿洛伊斯·海因茨2009年10月7日
|
|
|
数学
|
nmax=55；a[1,1]=1；使用={1}；a[_，_]=1；
循环：=对于[i=n-j+1；k=1，True，k++，If[FreeQ[used，k]&AllTrue[{a[i-1，j+1]，a[i-1,j]，a[1，j-1]，a[i，j-1]，a[2+1，j-1]}，CoprimQ[k，#]&]，AppendTo[used、k]；a[i，j]=k；中断[]]]；
Do[If[EvenQ[n]，Do[loop，{j，n，1，-1}]，Do[循环，{j，1，n}]]，{n，2，nmax}]；
a[n]：=a[n，1]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.008秒内完成
|
