|
%I #25 Sep 08 2022 08:44:47
%S 2,5,7,13,17,31,41,43,47,61,71,73,101,103,107,113,127,131,157,163,181,
%T 191,197,223,233,241,251,281,283,293,307,317,337,367,383,421,433,443,
%U 457,461,467,491,503,563,631,643,647,653,673,677,691,733,751,761,787,797,811
%N Primes p such that 8*p + 3 is also prime.
%H Vincenzo Librandi, <a href="/A023229/b023229.txt">Table of n, a(n) for n = 1..1000</a>
%p a := proc (n) if isprime(n) = true and isprime(8*n+3) = true then n else end if end proc: seq(a(n), n = 1 .. 900); # _Emeric Deutsch_, Dec 26 2008
%t Select[Prime@Range@500, PrimeQ[8 # + 3] &] (* _Vincenzo Librandi_, May 19 2014 *)
%o (Magma) [n: n in PrimesUpTo(1000) | IsPrime(8*n+3)]; // _Vincenzo Librandi_, Nov 20 2010
%Y Cf. A005124, A007520.
%K nonn,easy
%O 1,1
%A _David W. Wilson_
|
