%I #15 Sep 08 2022 08:46:13
%S 10,14,40,57,111,119,406,447,475,620,646,839,848,866,909,997,1086,
%T 1095,1180,1318,1319,1332,1418,1447,1472,1534,1617,1681,1684,1735,
%U 1788,1955,2037,2118,2120,2163,2169,2170,2390,2407,2440,2498,2700,2709,2716,2761,2999
%N Numbers n such that (n^53+1)/(n+1) is prime.
%H Tim Johannes Ohrtmann, <a href="/A260564/b260564.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1, 10000], PrimeQ[(#^53 + 1)/(# + 1)] &]
%o (PARI) for(n=1,10000, if(isprime((n^53+1)/(n+1)), print1(n,", ")))
%o (Magma) [n: n in [1..10000] |IsPrime((n^53 + 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