A205171 The lesser of twin primes == 1 (mod 8).
17, 41, 137, 281, 521, 569, 617, 641, 809, 857, 881, 1049, 1289, 1481, 1697, 1721, 2081, 2129, 2657, 2729, 2801, 2969, 3257, 3329, 3929, 4001, 4049, 4217, 4241, 4337, 4481, 4649, 4721, 5009, 5417, 5441, 5657, 5849, 6089, 6449, 6569, 6689, 6761, 7457
Offset: 1
Programs
-
Mathematica
Select[ Prime@ Range@ 1000, Mod[#, 8] == 1 && PrimeQ[# + 2] &]