OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[2, 2000], PrimeQ[(#^47 - 1)/(# - 1)] &] (* T. D. Noe, Sep 26 2012 *)
PROG
(Magma) [n: n in [2..2000] |IsPrime((n^47 - 1) div (n - 1))]; // Vincenzo Librandi, Sep 28 2012
(PARI) is(n)=isprime((n^47-1)/(n-1)) \\ Charles R Greathouse IV, Feb 17 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Tim Johannes Ohrtmann, Sep 26 2012
EXTENSIONS
More terms from T. D. Noe, Sep 26 2012
STATUS
approved