A239735-OEIS公司

A239735型

使n*k^n+/-1是双素数的最小数k，或者如果不存在这样的数，则a（n）=0。

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

a（n）=1当n处于A014574号.

如果a（n）=0，则n为inA097764号.

如果a（n）>1，则A367566飞机（n）对a（n）进行除法运算-乔恩·肖恩菲尔德2023年11月23日

链接

乔恩·肖恩菲尔德，n=1..200时的n，a（n）表（前77个术语来自Michel Marcus）

例子

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）||；my（k=1）；while（！（ispseudoprime（n*k^n-1）&&ispseudop时间（n*k^n+1）），k++）；k\\米歇尔·马库斯2023年11月18日

交叉参考

囊性纤维变性。A097764号,A014574号,A239938型,23966英镑,A367566飞机.

上下文中的序列：A284517型 A286953型 A170987号*A196826号 A215597型 A266110型

相邻序列：A239732型 A239733型 A239734型*A239736型 A239737型 A239738型

关键字

非n

作者

德里克·奥尔2014年3月30日

扩展

a（46）来自乔瓦尼·雷斯塔2014年3月31日

状态

经核准的