|
%I #17 Sep 08 2022 08:46:13
%S 49,75,458,471,634,734,798,809,932,1139,1268,1400,1498,1963,1989,2112,
%T 2177,2233,2252,2349,2365,2446,2729,2841,2861,2887,3013,3048,3239,
%U 3262,3403,3464,3703,3855,3883,4534,5147,5189,5523,5611,5778,6041,6200,6336,6682,7068
%N Numbers n such that (n^83+1)/(n+1) is prime.
%H Tim Johannes Ohrtmann, <a href="/A260571/b260571.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1, 10000], PrimeQ[(#^83 + 1)/(# + 1)] &]
%o (PARI) for(n=1,10000, if(isprime((n^83+1)/(n+1)), print1(n,", ")))
%o (Magma) [n: n in [1..10000] |IsPrime((n^83 + 1) div (n + 1))]
%Y Cf. A055494, A246392, A250174, A250178, A250181, A250185, A250187, A250193, A260558-A260573.
%K nonn
%O 1,1
%A _Tim Johannes Ohrtmann_, Jul 29 2015
|
