%I #12 Aug 30 2015 11:44:39
%S 2,3,4,5,6,8,9,10,11,12,15,16,18,20,22,23,24,25,27,29,30,32,33,36,40,
%T 41,44,45,46,48,50,53,54,55,58,60,64,66,69,72,75,77,80,81,82,83,87,88,
%U 89,90,92,96,99,100,106,108,110,113,115,116,120,121,123,125,128,131,132
%N Numbers n with property that the largest prime factor is a Sophie Germain prime.
%C Prime terms 2,3,5,11,23,29,... are in A005384.
%C A156541 is a subsequence. [_Reinhard Zumkeller_, Feb 10 2009]
%C A156660(A006530(a(n))) = 1. [_Reinhard Zumkeller_, Dec 03 2009]
%t Select[Range[2, 132], PrimeQ[FactorInteger[#][[-1, 1]]*2 + 1] &] (* _Ivan Neretin_, Aug 30 2015 *)
%Y Cf. A005384.
%K nonn
%O 1,1
%A _Zak Seidov_, May 14 2007
|