%I A078403
%S A078403 2,3,5,7,11,23,29,41,43,47,59,61,79,83,97,101,113,131,137,149,151,167,
%T A078403 173,191,223,227,239,241,257,263,277,281,293,311,313,317,331,347,349,
%U A078403 353,367,383,389,401,419,421,439,443,457,461,479,491,509,547,563,569
%N A078403 Primes such that digital root (A038194) is prime.
%e A078403 59 is a term because 5+9=14, giving (final) iterated sum 1+4=5 and 5 
               is prime.
%t A078403 Select[ Range[580], PrimeQ[ # ] && PrimeQ[Mod[ #, 9]] &]
%o A078403 (PARI) forprime(p=2,997,if(isprime(p%9),print1(p,",")))
%Y A078403 Cf. A070027, A078400.
%Y A078403 Sequence in context: A048278 A068863 A087521 this_sequence A129945 A046704 
               A089392
%Y A078403 Adjacent sequences: A078400 A078401 A078402 this_sequence A078404 A078405 
               A078406
%K A078403 base,easy,nonn
%O A078403 1,1
%A A078403 N. J. A. Sloane (njas(AT)research.att.com), Dec 26 2002
%E A078403 Extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Klaus Brockhaus (klaus-brockhaus(AT)t-online.de) 
               and Rick L. Shepherd (rshepherd2(AT)hotmail.com), Dec 27 2002