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