%I #3 Mar 12 2014 16:36:45
%S 17,59,101,311,353,479,521,941,983,1109,1361,1571,1613,1823,1949,2243,
%T 2663,2789,2999,3083,3251,3671,3881,4133,4259,4931,5939,5981,6569,
%U 6653,7283,7451,7829,8039,8081,8543,8669,9173,9551,9719,9803,9929,10139
%N Sophie Germain type primes where 7*Prime[n]=2*Prime[m]+1.
%F a(n) = If (7*Prime[n]1)/2 is prime, then a[m]=(7*Prime[n]1)/2
%t a = Delete[Union[Table[If [PrimeQ[(7*Prime[n]  1)/2] == True, (7*Prime[n]  1)/2, 0], {n, 1, 1000}]], 1]
%Y Cf. Sophie Germain primes: A005384.
%K nonn
%O 1,1
%A _Roger L. Bagula_, Mar 10 2005
