login
Lesser of two consecutive primes of forms 4k+3 and 4k+1 respectively.
1

%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