A066306 - OEIS

%I #14 Sep 08 2022 08:45:04

%S 2,3,5,7,2141,2411,4211,11251,12511,15121,21221,25111,1112171,1127111,

%T 1172111,1271111,7112111,11112811,11128111,11218111,12111811,12118111,

%U 12181111,18211111,81111211,81112111

%N Prime numbers such that sum of digits equals product of digits.

%H Chai Wah Wu, <a href="/A066306/b066306.txt">Table of n, a(n) for n = 1..8552</a>

%e 2141 = p[323], 2*1*4*1 = 8 = 2+1+4+1.

%t f[n_] := IntegerDigits[ Prime[n]]; Prime[ Select[ Range[ PrimePi[10^10]], Apply[Plus, f[ # ]] == Apply[Times, f[ # ]] & ]]

%o (Magma) [NthPrime(n): n in [1..2*10^4] | &+Intseq(NthPrime(n)) eq &*Intseq(NthPrime(n))]; // _Vincenzo Librandi_, Nov 18 2015

%Y Primes from A034710.

%Y Cf. A000040, A061672, A066307.

%K nonn,base

%O 1,1

%A _Labos Elemer_, Dec 13 2001

%E More terms from _Robert G. Wilson v_, Dec 27 2001