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 A157676 #4 Dec 27 2013 09:51:17 %S A157676 1,21,23,27,29,61,67,81,83,101,103,107,109,161,163,169,233,239,253, %T A157676 259,283,289,293,299,307,329,341,343,347,349,361,401,409,431,437,439, %U A157676 441,443,449,471,473,477,493,499,503,509,529,563,569,601,607,611,613,617 %N A157676 Numbers n such that n + (product of digits of n) is prime. %H A157676 Charles R Greathouse IV, <a href="/A157676/b157676.txt">Table of n, a(n) for n = 1..10000</a> %F A157676 a(n) ~ n log n. - _Charles R Greathouse IV_, Dec 27 2013 %e A157676 a(21) = 21 + (2)(1) = 23 (prime). a(67) = 67 + (6)(7) = 109 (prime). a(169) = 169 + (1)(6)(9) = 223 (prime). %t A157676 fQ[n_] := PrimeQ[n + Times @@ IntegerDigits@n]; Select[ Range@1000, fQ@# &] (* _Robert G. Wilson v_, May 04 2009 *) %o A157676 (PARI) dprod(n)=n=digits(n);prod(i=1,#n,n[i]) %o A157676 is(n)=isprime(dprod(n)+n) \\ _Charles R Greathouse IV_, Dec 27 2013 %Y A157676 Cf. A157677, A092518. %K A157676 nonn,base %O A157676 1,2 %A A157676 _Kyle D. Balliet_, Mar 04 2009 %E A157676 More terms from _Robert G. Wilson v_, May 04 2009