|
%I #19 Sep 08 2022 08:46:04
%S 19,70,102,116,126,188,209,257,294,359,451,461,468,470,638,653,710,
%T 762,766,781,824,901,939,964,995,1036,1047,1098,1150,1211,1234,1243,
%U 1256,1278,1389,1401,1422,1436,1454,1492,1523,1639,1703,1705,1826,1913,1915,1978
%N Numbers n such that (n^59-1)/(n-1) is prime.
%H Vincenzo Librandi, <a href="/A217081/b217081.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[2, 2000], PrimeQ[(#^59 - 1)/(# - 1)] &] (* _T. D. Noe_, Sep 26 2012 *)
%o (Magma) [n: n in [2..2000] |IsPrime((n^59 - 1) div (n - 1))]; // _Vincenzo Librandi_, Sep 28 2012
%o (PARI) is(n)=isprime((n^59-1)/(n-1)) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Cf. A002384, A049409, A100330, A162862, A217070-A217089.
%K nonn,easy
%O 1,1
%A _Tim Johannes Ohrtmann_, Sep 26 2012
%E More terms from _T. D. Noe_, Sep 26 2012
|
