|
%I #15 Sep 08 2022 08:46:13
%S 5,10,23,33,40,54,193,326,330,364,375,382,388,404,438,449,562,625,626,
%T 683,700,765,797,807,1001,1017,1136,1181,1216,1242,1249,1254,1286,
%U 1386,1412,1482,1581,1656,1748,1832,1873,1921,2017,2038,2061,2166,2193,2204,2253
%N Numbers n such that (n^67+1)/(n+1) is prime.
%H Tim Johannes Ohrtmann, <a href="/A260567/b260567.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1, 10000], PrimeQ[(#^67 + 1)/(# + 1)] &]
%o (PARI) for(n=1,10000, if(isprime((n^67+1)/(n+1)), print1(n,", ")))
%o (Magma) [n: n in [1..10000] |IsPrime((n^67 + 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
|
