A217079 Numbers n such that (n^47-1)/(n-1) is prime.
5, 17, 19, 55, 62, 75, 89, 98, 99, 132, 172, 186, 197, 220, 268, 278, 279, 288, 439, 443, 496, 579, 583, 587, 742, 777, 825, 911, 966, 1003, 1029, 1155, 1202, 1267, 1377, 1461, 1472, 1473, 1530, 1562, 1634, 1682, 1705, 1783, 1848, 1852, 1885, 1900, 1943, 1957
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [2..2000] |IsPrime((n^47 - 1) div (n - 1))]; // Vincenzo Librandi, Sep 28 2012
-
Mathematica
Select[Range[2, 2000], PrimeQ[(#^47 - 1)/(# - 1)] &] (* T. D. Noe, Sep 26 2012 *)
-
PARI
is(n)=isprime((n^47-1)/(n-1)) \\ Charles R Greathouse IV, Feb 17 2017
Extensions
More terms from T. D. Noe, Sep 26 2012