%I #15 Sep 08 2022 08:46:13
%S 2,6,10,36,65,74,78,83,106,115,120,148,161,163,168,176,189,194,197,
%T 266,270,288,331,385,399,407,410,412,413,431,468,513,524,546,569,572,
%U 578,581,600,611,625,626,647,719,723,756,832,834,849,922,986,1006,1007,1047
%N Numbers n such that (n^31+1)/(n+1) is prime.
%H Tim Johannes Ohrtmann, <a href="/A260559/b260559.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1, 10000], PrimeQ[(#^31 + 1)/(# + 1)] &]
%o (PARI) for(n=1,10000, if(isprime((n^31+1)/(n+1)), print1(n,", ")))
%o (Magma) [n: n in [1..10000] |IsPrime((n^31 + 1) div (n + 1))]
%Y Cf. A055494, A246392, A250174, A250178, A250181, A250185, A250187, A250193, A260558, A260560-A260573.
%K nonn
%O 1,1
%A _Tim Johannes Ohrtmann_, Jul 29 2015