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
KEYWORD
nonn,base
AUTHOR
Labos Elemer, Dec 13 2001
EXTENSIONS
More terms from Robert G. Wilson v, Dec 27 2001
STATUS
approved