OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[2000], PrimeQ[(#^17 + 1) / (# + 1)] &] (* Vincenzo Librandi, Jan 15 2015 *)
PROG
(Magma) [n: n in [1..2000]| IsPrime((n^17+1) div (n+1))]; // Vincenzo Librandi, Jan 15 2015
(PARI) is(n)=isprime(polcyclo(34, n)) \\ Charles R Greathouse IV, Sep 08 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Jan 12 2015
STATUS
approved