%I #8 Nov 18 2015 11:38:36
%S 2,3,5,7,83,139,673,1289,2129,5197,5449,6737,6793,8849,12889,13001,
%T 21577,38281,58441,70537,90697,300809,311897,398921,2400851,2400907,
%U 2429579,2430601,2462353,2658899,2691659,2724937,2925137,2925193,2925641,2957897,4494929
%N Prime numbers such that sum of digits in base 8 equals product of digits in base 8.
%H Chai Wah Wu, <a href="/A264576/b264576.txt">Table of n, a(n) for n = 1..10000</a>
%e 300809_10 = 1113411_8 is prime and the sum of digits of 1113411 is equal to the product of digits.
%t Select[Prime@ Range[10^6], Total@ # == Times @@ # &@ IntegerDigits[#, 8] &] (* _Michael De Vlieger_, Nov 18 2015 *)
%Y Cf. A066306.
%K nonn,base
%O 1,1
%A _Chai Wah Wu_, Nov 17 2015
|