%I #17 Sep 08 2022 08:46:04
%S 24,45,60,165,235,272,285,298,307,381,416,429,623,799,858,924,929,936,
%T 1034,1067,1076,1130,1223,1243,1327,1488,1592,1594,1659,1673,1676,
%U 1678,1762,1873,1917,1928,1997,2110,2117,2141,2166,2231,2243,2293,2338,2380,2420
%N Numbers n such that (n^53-1)/(n-1) is prime.
%H Vincenzo Librandi, <a href="/A217080/b217080.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[2, 2500], PrimeQ[(#^53 - 1)/(# - 1)] &] (* _T. D. Noe_, Sep 26 2012 *)
%o (Magma) [n: n in [2..2450] |IsPrime((n^53 - 1) div (n - 1))]; // _Vincenzo Librandi_, Sep 28 2012
%o (PARI) is(n)=isprime((n^53-1)/(n-1)) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Cf. A002384, A049409, A100330, A162862, A217070-A217089.
%K nonn
%O 1,1
%A _Tim Johannes Ohrtmann_, Sep 26 2012
%E More terms from _T. D. Noe_, Sep 26 2012