This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A104164 #3 Mar 12 2014 16:36:45
%S A104164 7,17,47,107,167,197,257,317,347,557,677,827,947,1097,1217,1307,1367,
%T A104164 1427,1607,1847,1877,2027,2207,2267,2297,2417,2477,2657,2927,3257,
%U A104164 3557,3617,3677,3917,3947,4157,4397,4457,4877,4967,5507,5717,5867,5927,6257
%N A104164 Sophie Germain type primes where 5*Prime[n]=2*Prime[m]+1.
%F A104164 a(n) = If (5*Prime[n]-1)/2 is prime, then a[m]=(5*Prime[n]-1)/2
%t A104164 a = Delete[Union[Table[If [PrimeQ[(5*Prime[n] - 1)/2] == True, (5*Prime[n] - 1)/2, 0], {n, 1, 1000}]], 1]
%Y A104164 Cf. Sophie Germain primes: A005384.
%K A104164 nonn
%O A104164 1,1
%A A104164 _Roger L. Bagula_, Mar 10 2005