%I #7 Nov 18 2015 11:38:44
%S 2,3,617,677,5593513,5597797,5608873,5609113,5609833,5659237,5662297,
%T 5662357,5678437,5854633,5855833,5871013,5871961,5871973,5872213,
%U 5875033,5876053,5920357,5921173,5924437,5937493,6646357,6658453,6661477,6706537,6706597,6707557
%N Prime numbers such that sum of digits in base 4 equals product of digits in base 4.
%H Chai Wah Wu, <a href="/A264577/b264577.txt">Table of n, a(n) for n = 1..10000</a>
%e 5593513_10 = 111111212221_4 is prime and the sum of digits of 111111212221 is equal to the product of digits.
%t Select[Prime@ Range[10^6], Total@ # == Times @@ # &@ IntegerDigits[#, 4] &] (* _Michael De Vlieger_, Nov 18 2015 *)
%Y Cf. A066306.
%K nonn,base
%O 1,1
%A _Chai Wah Wu_, Nov 17 2015