A066306 Prime numbers such that sum of digits equals product of digits.
2, 3, 5, 7, 2141, 2411, 4211, 11251, 12511, 15121, 21221, 25111, 1112171, 1127111, 1172111, 1271111, 7112111, 11112811, 11128111, 11218111, 12111811, 12118111, 12181111, 18211111, 81111211, 81112111
Offset: 1
Examples
2141 = p[323], 2*1*4*1 = 8 = 2+1+4+1.
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..8552
Programs
-
Magma
[NthPrime(n): n in [1..2*10^4] | &+Intseq(NthPrime(n)) eq &*Intseq(NthPrime(n))]; // Vincenzo Librandi, Nov 18 2015
-
Mathematica
f[n_] := IntegerDigits[ Prime[n]]; Prime[ Select[ Range[ PrimePi[10^10]], Apply[Plus, f[ # ]] == Apply[Times, f[ # ]] & ]]
Extensions
More terms from Robert G. Wilson v, Dec 27 2001