%I #18 Sep 08 2022 08:44:52
%S 1999,3331,4663,6661,7993,10657,14653,15319,16651,17317,21313,23311,
%T 23977,25309,26641,30637,33301,33967,37963,38629,40627,41959,43291,
%U 44623,45289,47287,48619,51283,51949,53281,56611,57943,60607,65269
%N Primes of the form 666*n + 1.
%H Vincenzo Librandi, <a href="/A037029/b037029.txt">Table of n, a(n) for n = 1..10000</a>
%t f[n_]:=666*n+1; lst={};Do[p=f[n];If[PrimeQ[p],AppendTo[lst,p]],{n,0,6!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jul 02 2009 *)
%t Select[Table[666n+1,{n,0,500}],PrimeQ] (* _Vincenzo Librandi_, Dec 08 2011 *)
%o (Magma) [a: n in [0..100] | IsPrime(a) where a is 666*n + 1]; // _Vincenzo Librandi_, Dec 08 2011
%Y Cf. A037030.
%K nonn,easy
%O 1,1
%A _G. L. Honaker, Jr._