This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A066306 #14 Sep 08 2022 08:45:04 %S A066306 2,3,5,7,2141,2411,4211,11251,12511,15121,21221,25111,1112171,1127111, %T A066306 1172111,1271111,7112111,11112811,11128111,11218111,12111811,12118111, %U A066306 12181111,18211111,81111211,81112111 %N A066306 Prime numbers such that sum of digits equals product of digits. %H A066306 Chai Wah Wu, <a href="/A066306/b066306.txt">Table of n, a(n) for n = 1..8552</a> %e A066306 2141 = p[323], 2*1*4*1 = 8 = 2+1+4+1. %t A066306 f[n_] := IntegerDigits[ Prime[n]]; Prime[ Select[ Range[ PrimePi[10^10]], Apply[Plus, f[ # ]] == Apply[Times, f[ # ]] & ]] %o A066306 (Magma) [NthPrime(n): n in [1..2*10^4] | &+Intseq(NthPrime(n)) eq &*Intseq(NthPrime(n))]; // _Vincenzo Librandi_, Nov 18 2015 %Y A066306 Primes from A034710. %Y A066306 Cf. A000040, A061672, A066307. %K A066306 nonn,base %O A066306 1,1 %A A066306 _Labos Elemer_, Dec 13 2001 %E A066306 More terms from _Robert G. Wilson v_, Dec 27 2001