OFFSET
1,1
LINKS
Tim Johannes Ohrtmann, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1, 10000], PrimeQ[(#^73 + 1)/(# + 1)] &]
PROG
(PARI) for(n=1, 10000, if(isprime((n^73+1)/(n+1)), print1(n, ", ")))
(Magma) [n: n in [1..10000] |IsPrime((n^73 + 1) div (n + 1))]
CROSSREFS
KEYWORD
nonn
AUTHOR
Tim Johannes Ohrtmann, Jul 29 2015
STATUS
approved