%I A130828
%S A130828 5,11,19,29,37,43,89,97,113,139,269,311,337,359,367,433
%N A130828 Primes p such that the sum of the digitis of p^p is a prime.
%C A130828 Computed by Emeric Deutsch.
%e A130828 For 5^5=625, 6+2+5=13 which is a prime.
%p A130828 sd := proc (n) options operator, arrow: add(convert(n, base, 10)[j], 
               j = 1 .. nops(convert(n, base, 10))) end proc: a := proc (n) if isprime(sd(ithprime(n)^ithprime(n))) 
               = true then ithprime(n) else end if end proc: seq(a(n), n = 1 .. 
               90); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Jul 19 2007
%Y A130828 Sequence in context: A089270 A038872 A141158 this_sequence A108151 A088059 
               A165900
%Y A130828 Adjacent sequences: A130825 A130826 A130827 this_sequence A130829 A130830 
               A130831
%K A130828 nonn,base,less
%O A130828 1,1
%A A130828 J. M. Bergot (thekingfishb(AT)yahoo.ca), Jul 17 2007