|
%I #17 Sep 08 2022 08:46:13
%S 16,20,93,195,227,325,465,758,888,911,1075,1301,1590,1640,1783,1807,
%T 2168,2204,2231,2376,2528,2591,2627,2648,2909,2959,3063,3109,3650,
%U 3688,3709,3784,3910,3943,4132,4162,4385,4417,4443,4613,5183,5465,5574,5750,5854,5975
%N Numbers n such that (n^89+1)/(n+1) is prime.
%H Tim Johannes Ohrtmann, <a href="/A260572/b260572.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1, 10000], PrimeQ[(#^89 + 1)/(# + 1)] &]
%o (PARI) for(n=1,10000, if(isprime((n^89+1)/(n+1)), print1(n,", ")))
%o (Magma) [n: n in [1..10000] |IsPrime((n^89 + 1) div (n + 1))]
%Y Cf. A055494, A246392, A250174, A250178, A250181, A250185, A250187, A250193, A260558-A260571, A260573.
%K nonn
%O 1,1
%A _Tim Johannes Ohrtmann_, Jul 29 2015
|
