显示找到的15个结果中的1-10个。
3, 12, 28, 42, 2, 6, 120, 195, 234, 6, 21, 2, 84, 1, 744, 558, 78, 780, 210, 336, 72, 6, 10
a(n)=σ(n)*σ(n+1):连续整数的σ值的乘积。
+10 9
3, 12, 28, 42, 72, 96, 120, 195, 234, 216, 336, 392, 336, 576, 744, 558, 702, 780, 840, 1344, 1152, 864, 1440, 1860, 1302, 1680, 2240, 1680, 2160, 2304, 2016, 3024, 2592, 2592, 4368, 3458, 2280, 3360, 5040, 3780, 4032, 4224, 3696, 6552, 5616, 3456, 5952
数学
f[x_]:=除数Sigma[1,x];t=表格[f[w+1]*f[w],{w,1,128}]
Times@@@分区[DivisorSigma[1,Range[50]],2,1](*哈维·P·戴尔2014年5月21日*)
素数(n+1)-1和素数(n)-1的LCM和相同两个数的GCD的商。
+10 9
2, 2, 6, 15, 30, 12, 72, 99, 154, 210, 30, 90, 420, 483, 598, 754, 870, 110, 1155, 1260, 156, 1599, 1804, 132, 600, 2550, 2703, 2862, 756, 72, 4095, 4420, 4692, 5106, 5550, 650, 702, 6723, 7138, 7654, 8010, 342, 9120, 2352, 9702, 1155, 1295, 12543, 12882
例子
n=25:素数(25)=97,素数(26)=101;a(25)=lcm(96100)/gcd(96100”)=2400/4=600。
MAPLE公司
P: =序列(i素数(i),i=1..100):
seq(ilcm(P[i+1]-1,P[i]-1)/igcd(P[i+1]-1、P[i]-1),i=1..99)#罗伯特·伊斯雷尔2017年6月11日
数学
f[x_]:=素数[x]-1表[LCM[f[w+1],f[w]]/GCD[f[w+1],f[w]],{w,1,128}]
(*第二个节目:*)
表[应用[LCM[#1,#2]/GCD[#1、#2]&,素数[n+{1,0}]-1],{n,49}](*迈克尔·德弗利格2017年6月11日*)
黄体脂酮素
(PARI)第一(n)=我的(v=向量(n),p=2,k,g);对于素数(q=3,g=gcd(p-1,q-1));v[k++]=(p-1)*(q-1)/g^2;p=q;如果(k==n,断裂);v(v)\\查尔斯·格里特豪斯四世2017年6月11日
2, 8, 24, 60, 120, 192, 288, 396, 616, 840, 1080, 1440, 1680, 1932, 2392, 3016, 3480, 3960, 4620, 5040, 5616, 6396, 7216, 8448, 9600, 10200, 10812, 11448, 12096, 14112, 16380, 17680, 18768, 20424, 22200, 23400, 25272, 26892, 28552, 30616, 32040
评论
x*prime(n)+y*prime的导体(n+1);也就是说,对于所有k>=a(n),存在非负整数x和y,使得k=x*prime(n)+y*prime-T.D.诺伊2004年9月22日
参考文献
David Bressoud和Stan Wagon,计算数论课程,重点学院出版社。,2000年,第46页。
例子
n=25:a(25)=(97-1)*(101-1)=9600。
数学
f[x_]:=素数[x]-1;表[f[w+1]*f[w],{w,1,128}]
对k进行编号,使k和k+1的欧拉方向函数的几何平均值为整数。
+10 4
1, 3, 15, 19, 95, 104, 125, 164, 194, 255, 259, 341, 491, 495, 504, 512, 513, 584, 591, 629, 679, 755, 775, 975, 1024, 1147, 1247, 1254, 1260, 1313, 1358, 1463, 1469, 1538, 1615, 1728, 1919, 1962, 1970, 2047, 2071, 2090, 2204, 2299, 2321, 2345, 2404, 2625
例子
19是一个术语,因为φ(19)=18,φ(20)=8,8*18=144=12^2。
数学
f[x_]:=EulerPhi[x];Do[s=Sqrt[f[n+1]*f[n]];如果[IntegerQ[s],打印[n]],{n,1,5000}]
位置[Partition[EulerPhi[Range[2700]],2,1],_?(整数Q[几何平均值[#]]&),1,头->假]//展平(*哈维·P·戴尔2020年9月13日*)
数字k是这样的A083539号(k) 是正方形;解x到σ(x+1)*sigma(x)=y^2对一些y。
+10 三
14, 30, 51, 161, 186, 206, 223, 329, 552, 713, 759, 869, 957, 994, 995, 1248, 1334, 1364, 1634, 1715, 1819, 2093, 2133, 2584, 2685, 2820, 2821, 2974, 3115, 3145, 3485, 4212, 4308, 4312, 4364, 4408, 4649
例子
x=30:σ(30)=72,σ(31)=32,乘积=72*32=256*9=24^2。
数学
Do[s=Sqrt[DivisorSigma[1,n+1]*Divisor西格玛[1,n]];如果[IntegerQ[s],打印[n]],{n,1,5000}]
压扁[Position[Times@@@Partition[DivisorSigma[1,Range[5000]],2,1],_?(整数Q[Sqrt[#]]&)]](*哈维·P·戴尔2016年3月7日*)
2, 2, 4, 4, 4, 4, 4, 12, 6, 6, 12, 4, 4, 12, 6, 6, 6, 12, 4, 6, 12, 12, 24, 8, 4, 4, 4, 4, 28, 28, 12, 6, 10, 10, 6, 6, 12, 12, 6, 6, 10, 10, 4, 4, 12, 12, 12, 4, 4, 12, 6, 10, 30, 6, 6, 6, 6, 12, 4, 10, 70, 28, 4, 4, 28, 42, 30, 10, 4, 12, 24, 24, 6, 12, 12, 24, 8, 8, 40, 10, 10, 10, 6, 12
数学
f[x_]:=素数[x+1]-素数[x];表[LCM[f[w+1],f[w]],{w,1,128}]
表[LCM[(素数[n+1]-素数[n]),素数[n+2]-素素[n+1],{n,100}](*文森佐·利班迪2018年3月15日*)
LCM@@#&/@分区[Differences[Prime[Range[90]]],2,1](*哈维·P·戴尔2020年10月11日*)
素数(n+1)-1和素数(n)-1的最小公共倍数。
+10 三
2, 4, 12, 30, 60, 48, 144, 198, 308, 420, 180, 360, 840, 966, 1196, 1508, 1740, 660, 2310, 2520, 936, 3198, 3608, 1056, 2400, 5100, 5406, 5724, 3024, 1008, 8190, 8840, 9384, 10212, 11100, 3900, 4212, 13446, 14276, 15308, 16020, 3420, 18240, 9408
例子
n=25:a(25)=lcm(97-1,101-1)=lcm(96100)=2400。
数学
f[x_]:=素数[x]-1;表[LCM[f[w+1],f[w]],{w,1,128}]
黄体脂酮素
(PARI)a(n)=lcm(素数(n+1)-1,素数(n)-1)\\米歇尔·马库斯2018年3月15日
从解到σ(x+1)*σ(x)=y^2的y值,其中A083539号(x) =y^2是一个平方数。
+10 2
24, 48, 84, 264, 288, 312, 336, 576, 960, 1152, 1440, 1440, 1440, 1440, 1680, 2100, 2160, 2688, 2640, 3360, 3024, 3360, 3360, 4320, 4320, 5376, 4032, 4464, 5040, 4788, 6048, 7392, 6720, 6840, 7644, 6300, 7440, 7560, 7020, 10080, 10080, 8064, 10080
数学
Do[s=Sqrt[DivisorSigma[1,n+1]*Divisor西格玛[1,n]];如果[IntegerQ[s],打印[s]],{n,1,5000}]
1, 12, 24, 36, 36, 60, 60, 72, 80, 96, 120, 120, 120, 144, 144, 168, 180, 240, 264, 360, 360, 432, 480, 504, 480, 480, 720, 720, 720, 720, 840, 840, 864, 840, 840, 840, 840, 960, 900, 960, 960, 1080, 1260, 1224, 1320, 1320, 1440, 1440, 1320, 1440, 1440, 1728
数学
f[x_]:=EulerPhi[x];Do[s=Sqrt[Sqrt[f[n+1]*f[n]]];如果[IntegerQ[s],打印[s]],{n,1,1000000}]
搜索在0.008秒内完成
|