|
%I #12 Apr 03 2023 10:36:10
%S 29,113,197,281,337,421,449,617,673,701,757,953,1009,1093,1289,1373,
%T 1429,1597,1709,1877,1933,2017,2129,2213,2269,2297,2381,2437,2521,
%U 2549,2633,2689,2801,2857,2969,3109,3137,3221,3361,3389,3529,3557,3613,3697
%N Primes of the form 28n + 1.
%C Used in a primality test.
%H Vincenzo Librandi, <a href="/A093359/b093359.txt">Table of n, a(n) for n = 1..1000</a>
%H Chris Caldwell, <a href="https://t5k.org/curios/includes/file.php?file=primetest.html">Prime Test</a>.
%p p:=proc(n) if isprime(28*n+1)=true then 28*n+1 else fi end: seq(p(n),n=1..160); # _Emeric Deutsch_, Feb 26 2005
%t Select[Table[28*n+1,{n,0,700}],PrimeQ] (* _Vincenzo Librandi_, Jul 17 2012
%o (Magma) [a: n in [0..200] | IsPrime(a) where a is 28*n+1]; // _Vincenzo Librandi_, Jul 17 2012
%K nonn,easy
%O 1,1
%A Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Apr 27 2004
%E More terms from _Emeric Deutsch_, Feb 26 2005
|
