|
%I #8 Mar 17 2023 01:39:21
%S 5,17,29,41,89,101,149,197,257,281,317,449,461,509,521,569,617,677,
%T 701,761,821,881,941,1097,1109,1181,1217,1277,1289,1301,1601,1637,
%U 1697,1709,1877,1889,1949,2081,2309,2357,2417,2441,2549,2621,2729,2801,2837,2861
%N Primes p such that (17+p)/2 is prime.
%C All these primes are congruent to 5 mod 12.
%H Harvey P. Dale, <a href="/A145475/b145475.txt">Table of n, a(n) for n = 1..1000</a>
%t aa = {}; k = 17; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, Prime[n]]], {n, 1, 500}];aa
%t Select[Prime[Range[500]],PrimeQ[(17+#)/2]&] (* _Harvey P. Dale_, Jan 02 2013 *)
%Y Cf. A092109, A145471-A145480.
%K nonn
%O 1,1
%A _Artur Jasinski_, Oct 11 2008
|
