%I #15 Sep 08 2022 08:46:13
%S 16,19,21,49,56,63,71,74,77,83,92,96,99,160,172,197,198,230,241,280,
%T 283,415,425,448,490,520,627,691,735,784,803,829,842,853,871,872,893,
%U 894,973,981,989,1043,1060,1061,1071,1179,1182,1203,1290,1299,1317,1370,1389
%N Numbers n such that (n^37+1)/(n+1) is prime.
%H Tim Johannes Ohrtmann, <a href="/A260560/b260560.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1, 10000], PrimeQ[(#^37 + 1)/(# + 1)] &]
%o (PARI) for(n=1,10000, if(isprime((n^37+1)/(n+1)), print1(n,", ")))
%o (Magma) [n: n in [1..10000] |IsPrime((n^37 + 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