|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|