%I #12 Oct 27 2019 00:31:46
%S 11,23,41,43,47,101,103,113,131,157,263,311,571,751,829,997,1021,1069,
%T 1087,1187,1201,1433,1583,1609,1619,1871,2011,2111,2221,2357,2579,
%U 2683,2753,2957,3023,3203,3257,3343,3413,3433,3527,3581,3637,3673,3851,4133
%N Sum of digits of prime(n) raised to its digits' powers is prime.
%e Prime 23 > 2^2 + 3^3 = 31 and prime. Prime 103 > 1^1 + 0^0 + 3^3 = 29 and prime.
%t sopQ[n_] := PrimeQ[Total[#^# & /@ (IntegerDigits[n] /. {0 > 1})]]; Select[Prime[Range[570]], sopQ[#] &] (* _Jayanta Basu_, Jun 25 2013 *)
%Y Cf. A046431A046439.
%K nonn,base
%O 0,1
%A _Patrick De Geest_, Jul 15 1998
