|
%I #19 May 17 2018 21:34:39
%S 11,15,75,114,195,215,295,335,378,559,566,650,660,832,871,904,966,
%T 1021,1112,1203,1334,1433,1485,1724,1822,1959,1998,2115,2154,2432,
%U 2465,2486,2544,2559,2564,2575,2611,2681,2705,2735,2754,2806,2880,3158,3222,3306,3368
%N Numbers n such that (n^73-1)/(n-1) is prime.
%H G. C. Greubel, <a href="/A217085/b217085.txt">Table of n, a(n) for n = 1..5000</a> (terms 1..500 from Vincenzo Librandi)
%t Select[Range[2, 1000], PrimeQ[(#^73 - 1)/(# - 1)] &] (* _T. D. Noe_, Sep 26 2012 *)
%o (PARI) is(n)=isprime((n^73-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
|
