%I #15 Sep 08 2022 08:46:13

%S 18,214,280,394,422,444,447,571,745,787,796,886,954,960,987,1012,1055,

%T 1140,1194,1212,1224,1227,1349,1583,1598,1640,1686,1714,1723,1750,

%U 1931,1962,2032,2036,2110,2223,2339,2774,2827,2859,2957,3063,3192,3236,3285,3485

%N Numbers n such that (n^73+1)/(n+1) is prime.

%H Tim Johannes Ohrtmann, <a href="/A260569/b260569.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[1, 10000], PrimeQ[(#^73 + 1)/(# + 1)] &]

%o (PARI) for(n=1,10000, if(isprime((n^73+1)/(n+1)), print1(n,", ")))

%o (Magma) [n: n in [1..10000] |IsPrime((n^73 + 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