用户:Peter Luschny/PrimeFactorsSwingFactorial
关于
摇摆因子。
Erdös的猜想,Graham等人。
与序列有关
A196747号 :seq(搜索(i,[3],1),i=0..200); 0, 1, 2, 6, 7, 8, 18, 19, 20, 24, 25, 26, 54, 55, 56, 60, 61, 62, 72, 73, 74, 78, 79, 80, 162, 163, 164, 168, 169, 170, 180, 181, 182, 186, 187, 188, A005836号 :seq(搜索(i,[3],2),i=0..250); 0, 1, 3, 4, 9, 10, 12, 13, 27, 28, 30, 31, 36, 37, 39, 40, 81, 82, 84, 85, 90, 91, 93, 94, 108, 109, 111, 112, 117, 118, 120, 121, 243, 244, 246, 247 A196748号 :seq(搜索(i,[3,5],1),i=0..6500); 0, 1, 2, 20, 24, 54, 60, 61, 62, 72, 73, 74, 504, 510, 511、512、560、564、1512、1513、1514、1520、1620、1621, 1622, 6320, 6324, 6372, 6373, 6374, 6500 A129508号 :seq(搜索(i,[3,5],2),i=0..4000); 0, 1, 10, 12, 27, 30, 31, 36, 37, 252, 255, 256, 280, 282, 756, 757, 760, 810, 811, 3160, 3162, 3186, 3187, 3250, 3252, 3276, 3277, 3280 A196749号 :seq(搜索(i,[3,5,7],1),i=0..1200000); 0, 1, 2, 20, 1512, 1513, 1514, 6320, 6372, 6373, 6374, 6500, 15120, 15121, 15122, 15302, 40014, 119096754, 119096802 A030979号 :seq(搜索(i,[3,5,7],2),i=0..6000000); 0, 1, 10, 756, 757, 3160, 3186, 3187, 3250, 7560,7561, 7651, 20007, 59548377, 59548401 A196750型 :seq(搜索(i,[3,5,7,11],1),i=0..100000); 0、1、2、6320 A151750型 :seq(搜索(i,[3,5,7,11],2),i=0..100000); 0, 1, 3160 A000000元 :seq(搜索(i,[3,5,7,11,13],1),i=0..100000); 0、1、2 A000000元 :seq(搜索(i,[3,5,7,11,13],2),i=0..100000); 0, 1
计算序列
搜索:=进程(n,L,f) 局部m,i,r; m:=f*n; 因为我在L do r:=摆动Exp(i,m); 如果r<>0,则返回(NULL)fi od; n端:
SwingExp:=进程(m,n) 局部p,q; p:=米; do q:=iquo(n,p); 如果(q mod 2)=1,则RETURN(1)fi; 如果q=0,则返回(0)fi; p:=p*m; od端:
发现
1, 7, 19, 25, 55, 61, 73, 79, 163, 169, 181, 187, 217, 223, 235, 241, 487, 493, 505, 511, 541, 547, 559, 565, 649, 655, 667, 673, 703, 709, 721, 727, 1459, 1465
181637英镑 - 2* A129508号 = 1, 61, 73, 511, 1513, 1621, 6373, 6553、13123、13771、15073、15121、15253、15301、39373