A217078 Numbers n such that (n^43-1)/(n-1) is prime.
15, 21, 26, 86, 89, 114, 123, 163, 180, 310, 332, 377, 409, 438, 448, 457, 477, 526, 534, 556, 586, 612, 653, 665, 690, 692, 709, 760, 783, 803, 821, 848, 877, 899, 909, 942, 981, 1041, 1042, 1043, 1066, 1068, 1069, 1106, 1126, 1139, 1197, 1310, 1386, 1476, 1561
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [2..1600] |IsPrime((n^43 - 1) div (n - 1))]; // Vincenzo Librandi, Sep 28 2012
-
Mathematica
Select[Range[2, 1600], PrimeQ[(#^43 - 1)/(# - 1)] &] (* T. D. Noe, Sep 26 2012 *)
-
PARI
is(n)=isprime((n^43-1)/(n-1)) \\ Charles R Greathouse IV, Feb 17 2017
Extensions
More terms from T. D. Noe, Sep 26 2012