%I #8 Jul 31 2015 20:56:45
%S 2,1,79,19,91,361,211,1699,1651,2359,3001,26569,61,19759,18109,29911,
%T 13741,4381,3811,13429,15469,27331,11431,49111,47929,17041,227971,
%U 48979,315511,65299,86359,78049,2449,69949,136579,24781,149779,256171,143551
%N Least k such that 10^n + k is a Sophie Germain prime and the lesser of a twin prime pair.
%F a(n) = A118479(n+1) - 10^n.
%e 10^1 + 1 = 11; 11 is a Sophie Germain prime and 11 and 13 are twin prime pairs.
%t f[n_] := Block[{k = 10^(n - 1)}, While[ !PrimeQ[k] || !PrimeQ[k + 2] || !PrimeQ[2k + 1], k++ ]; k - 10^(n - 1)]; Array[f, 40] (* _Robert G. Wilson v_, May 13 2006 *)
%Y Cf. A118479.
%K nonn
%O 0,1
%A _Pierre CAMI_, May 07 2006
|