|
%I #9 Sep 08 2022 08:45:41
%S 7,17,19,29,31,41,43,47,61,67,71,73,83,97,103,109,131,137,139,157,179,
%T 199,223,227,229,257,263,269,293,307,311,337,353,383,389,397,421,439,
%U 449,467,491,503,571,577,587,593,599,601,619,631,641,643,659,683,701
%N Primes p such that 16*p+45 is prime.
%H Vincenzo Librandi, <a href="/A156005/b156005.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1000]], PrimeQ[16 # + 45] &] (* _Vincenzo Librandi_, Oct 14 2012 *)
%o (Magma) [p: p in PrimesUpTo(800)|IsPrime(16*p+45)]; // _Vincenzo Librandi_, Oct 14 2012
%Y Cf. A156004.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Feb 01 2009
|
