A100877 - OEIS

%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