|
%I #26 Nov 21 2013 12:48:36
%S 5,13,29,37,53,61,73,89,109,137,149,157,173,181,193,229,241,257,269,
%T 277,293,313,337,349,373,389,421,433,449,509,541,557,569,577,593,601,
%U 613,641,653,661,701,733,757,797,821,829,853,877,929,953,977,997,1021,1033
%N Greater of two consecutive primes of form 4k+3 and 4k+1 respectively.
%t Prime[Select[Range[200], Mod[Prime[ # ], 4] == 3 && Mod[Prime[ # + 1], 4] == 1 &] + 1]
%t Transpose[Select[Partition[Prime[Range[200]],2,1],And@@IntegerQ/@ {(Last[#]-1)/4,(First[#]-3)/4}&]][[2]] (* _Harvey P. Dale_, Apr 11 2012 *)
%Y Cf. A100860.
%K nonn,easy
%O 1,1
%A _Giovanni Teofilatto_, Jan 13 2005
%E Edited and corrected by _Ray Chandler_, Jan 19 2005
|
