%I #17 Apr 22 2012 15:42:40
%S 3,11,23,31,47,59,71,83,107,131,139,151,167,179,191,227,239,251,263,
%T 271,283,311,331,347,367,383,419,431,443,503,523,547,563,571,587,599,
%U 607,631,647,659,691,727,751,787,811,827,839,863,919,947,971,991,1019,1031
%N Lesser of two consecutive primes of forms 4k+3 and 4k+1 respectively.
%t Prime[Select[Range[200], Mod[Prime[ # ], 4] == 3 && Mod[Prime[ # + 1], 4] == 1 &]]
%Y Cf. A100877.
%K nonn,easy
%O 1,1
%A _Giovanni Teofilatto_, Jan 13 2005
%E Edited and corrected by _Ray Chandler_, Jan 19 2005