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,1

Links

Chai Wah Wu, Table of n, a(n) for n = 1..8552

Example

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

Mathematica

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

Prog

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

Crossrefs

Primes from A034710.

Cf. A000040, A061672, A066307.

Sequence in context: A090721 A224164 A224398 * A212667 A252357 A037948

Adjacent sequences: A066303 A066304 A066305 * A066307 A066308 A066309

Keyword

nonn,base

Author

Labos Elemer, Dec 13 2001

Extensions

More terms from Robert G. Wilson v, Dec 27 2001

Status

approved