%I #16 Sep 08 2022 08:46:13
%S 6,7,17,90,126,139,143,257,293,295,319,387,482,519,603,720,819,884,
%T 896,903,905,921,952,954,956,1042,1058,1147,1170,1237,1253,1279,1295,
%U 1343,1366,1370,1406,1465,1514,1593,1595,1607,1609,1622,1701,1705,1709,1736,1772
%N Numbers n such that (n^47+1)/(n+1) is prime.
%H Tim Johannes Ohrtmann, <a href="/A260563/b260563.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1, 10000], PrimeQ[(#^47 + 1)/(# + 1)] &]
%o (PARI) for(n=1,10000, if(isprime((n^47+1)/(n+1)), print1(n,", ")))
%o (Magma) [n: n in [1..10000] |IsPrime((n^47 + 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