|
%I #9 Feb 08 2021 05:27:01
%S 2,3,5,11,23,29,41,83,89,113,131,173,179,191,281,359,443,593,641,683,
%T 719,809,911,953,1013,1019,1031,1103,1439,1451,1499,1583,1811,1901,
%U 2003,2063,2069,2339,2351,2393,2399,2753,2939,3299,3329,3389,3413,3491,3761
%N Sophie Germain primes whose sum of digits is a prime.
%H Amiram Eldar, <a href="/A118571/b118571.txt">Table of n, a(n) for n = 1..10000</a>
%e 191 is in the sequence because it is a Sophie Germain prime and the sum of its digits 1+9+1 = 11 is a prime.
%t Select[Range[4000], PrimeQ[#] && PrimeQ[2*# + 1] && PrimeQ[Plus @@ IntegerDigits[#]] &] (* _Amiram Eldar_, Feb 08 2021 *)
%Y Intersection of A005384 and A028834.
%Y Subsequence of A046704.
%K base,nonn
%O 1,1
%A Luc Stevens (lms022(AT)yahoo.com), May 07 2006
|
