|
%I #14 Jun 25 2018 22:55:08
%S 1997,2663,3329,6659,9323,11321,11987,12653,16649,17981,19979,21977,
%T 22643,25307,29303,32633,34631,35963,36629,39293,41957,44621,45953,
%U 46619,47951,53279,59273,62603,64601,65267,67931,68597,69263,69929
%N Primes of the form 666*k - 1.
%H Harry J. Smith, <a href="/A063472/b063472.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[666*Range[150]-1,PrimeQ] (* _Harvey P. Dale_, Feb 24 2013 *)
%o (PARI) j=[]; for(n=1,150,x=666*n-1; if(isprime(x),j=concat(j,x))); j
%o (PARI) { n=0; for (m=1, 10^9, if (isprime(a=666*m - 1), write("b063472.txt", n++, " ", a); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 22 2009
%Y Cf. A037029, A037030.
%K nonn
%O 1,1
%A _Jason Earls_, Jul 27 2001
|
