显示找到的3个结果中的1-3个。
第页1
252, 1, 2, -1, 24, 5, 48, -1, -1, -1, 450, -1, 12, 15, 4, -1, 1512, -1, 18, -1, -1, 45, 8118, -1, -1, -1, -1, -1, 840, -1, 30, -1, 10, -1, 6, -1, 1368, 189, -1, -1, 1680, -1, 42, -1, -1, 231, 2208, -1, -1, -1, 152, -1, 6942, -1, -1, -1, -1, -1, 27318, -1, 60
使n*k^n+/-1是双素数的最小数k,或者如果不存在这样的数,则a(n)=0。
+10 2
4, 3, 4, 1, 570, 1, 1464, 54, 60, 14025, 1932, 1, 7194, 15, 3612, 0, 4746, 1, 540, 150, 7060, 138, 80094, 6160, 33480, 93135, 0, 366618, 26058, 1, 90510, 16836, 9824, 418875, 57246, 0, 182394, 64077, 14178, 943410, 36078, 1, 314520, 15870, 194942, 15044700, 241944, 3871, 308730
例子
1*1^1+1(2)和1*1^1-1(0)不是素数。1*2^1+1(3)和1*2^1-1(1)并不都是素数。1*3^1+1(4)和1*3*1-1(2)不是素数。1*4^1+1(5)和1*4*1-1(3)都是质数。因此,a(1)=4。
数学
zeroQ[n_]:=模块[{f=FactorInteger[n]},pow=GCD@@f[[;;,2]];n>4&&AnyTrue[Divisors[pow],#>1&&Divisible[n,#]&]];
a[n_,kmax_]:=模[{k=1},如果[zeroQ[n],0,While[k<=kmax&&!和@@PrimeQ[n*k^n+{-1,1}],k++];如果[k<kmax,k,-1]];表[a[n,10^6],{n,1,25}](*阿米拉姆·埃尔达尔,2023年11月18日,如果搜索限制应超过kmax*,则返回-1)
黄体脂酮素
(PARI)bot(n)=对于(k=1,10^5,如果(ispseudoprime(n*k^n-1),如果(ISpseudopime(n*k^n+1),return(k)));
n=1;而(n<100,打印1(bot(n),“,”);n+=1)
(PARI)a(n)=如果((n==16)||(n==27)||;我的(k=1);while(!(ispseudoprime(n*k^n-1)&&ispseudop时间(n*k^n+1)),k++);k\\米歇尔·马库斯2023年11月18日
10, 21, 26, 34, 39, 55, 57, 58, 74, 82, 93, 106, 111, 122, 129, 146, 155, 178, 183, 194, 201, 202, 203, 205, 218, 219, 226, 237, 253, 274, 291, 298, 301, 305, 309, 314, 327, 346, 355, 362, 381, 386, 394, 417, 453, 458, 466, 471, 482, 489, 497, 505, 514, 538
例子
10是一个项:10=2*5,2*2|5-1。
33不是一个项:33=3*11,但2*3不除以11-1。
搜索在0.004秒内完成
|