login
A100877
Greater of two consecutive primes of form 4k+3 and 4k+1 respectively.
1
5, 13, 29, 37, 53, 61, 73, 89, 109, 137, 149, 157, 173, 181, 193, 229, 241, 257, 269, 277, 293, 313, 337, 349, 373, 389, 421, 433, 449, 509, 541, 557, 569, 577, 593, 601, 613, 641, 653, 661, 701, 733, 757, 797, 821, 829, 853, 877, 929, 953, 977, 997, 1021, 1033
OFFSET
1,1
MATHEMATICA
Prime[Select[Range[200], Mod[Prime[ # ], 4] == 3 && Mod[Prime[ # + 1], 4] == 1 &] + 1]
Transpose[Select[Partition[Prime[Range[200]], 2, 1], And@@IntegerQ/@ {(Last[#]-1)/4, (First[#]-3)/4}&]][[2]] (* Harvey P. Dale, Apr 11 2012 *)
CROSSREFS
Cf. A100860.
Sequence in context: A268614 A152658 A347836 * A261580 A007521 A294919
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Jan 13 2005
EXTENSIONS
Edited and corrected by Ray Chandler, Jan 19 2005
STATUS
approved