%I A046704
%S A046704 2,3,5,7,11,23,29,41,43,47,61,67,83,89,101,113,131,137,139,151,157,173,
               179,191,
%T A046704 193,197,199,223,227,229,241,263,269,281,283,311,313,317,331,337,353,
%U A046704 359,373,379,397,401,409,421,443,449,461,463,467,487,557,571,577,593
%N A046704 Additive primes: sum of digits is a prime.
%t A046704 Select[Prime[Range[100000]], PrimeQ[Apply[Plus, IntegerDigits[ # ]]]&]
%o A046704 (PARI) isA046704(n)={local(s,m);s=0;m=n;while(m>0,s=s+m%10;m=floor(m/
               10));isprime(n) & isprime(s)} [From Michael Porter (michael_b_porter(AT)yahoo.com), 
               Oct 18 2009]
%Y A046704 Indices of additive primes are in A075177.
%Y A046704 Cf. A046703.
%Y A046704 Sequence in context: A087521 A078403 A129945 this_sequence A089392 A089695 
               A070027
%Y A046704 Adjacent sequences: A046701 A046702 A046703 this_sequence A046705 A046706 
               A046707
%K A046704 base,nonn
%O A046704 1,1
%A A046704 Felice Russo (felice.russo(AT)katamail.com)