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 A092518 #16 May 20 2021 04:45:04 %S A092518 23,29,61,67,83,163,233,239,283,293,347,349,431,439,443,449,499,563, %T A092518 569,613,617,619,653,659,677,683,743,929,941,1123,1163,1217,1231,1237, %U A092518 1249,1289,1297,1321 %N A092518 Primes p with no zero digits such that (the digit product of p) plus p is also prime. %H A092518 Charles R Greathouse IV, <a href="/A092518/b092518.txt">Table of n, a(n) for n = 1..10000</a> %e A092518 a(2) = 29: 29+2(9) = 29+18 = 47 which is prime. %t A092518 Select[Prime[Range[300]],DigitCount[#,10,0]==0&&PrimeQ[#+Times@@ IntegerDigits[ #]]&] (* _Harvey P. Dale_, Jan 27 2020 *) %o A092518 (PARI) dprod(n)=n=digits(n); prod(i=1, #n, n[i]) %o A092518 is(n)=my(d=dprod(n)); d && isprime(n+d) && isprime(n) \\ _Charles R Greathouse IV_, Dec 27 2013 %Y A092518 Cf. A053666. %K A092518 nonn,base %O A092518 1,1 %A A092518 _Ray G. Opao_, Apr 06 2004 %E A092518 Definition clarified by _Harvey P. Dale_, Jan 27 2020