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 A178327 #14 Jun 23 2023 09:51:32
%S A178327 1,21,6617,12131,12441,114917,121221,124281,125121,145581,172631,
%T A178327 182121,191213,211551,221211,221421,241213,293143,421531,421821
%N A178327 Numbers k such that k^p+p is prime, where p is product of the digits of k.
%C A178327 All terms are odd. Large numbers corresponding to some terms are probable
%C A178327 prime. There is no further term up to 27500.
%C A178327 254597 < a(18) <= 293143. a(19) <= 421531. a(20) <= 421821. - _Donovan Johnson_, Aug 09 2010
%e A178327 21^(2*1)+(2*1) is prime so 21 is a term.
%t A178327 Do[p=Apply[Times, IntegerDigits[n]]; If[PrimeQ[n^p+p], Print[n]],
%t A178327 {n, 1, 27501, 2}]
%Y A178327 Cf. A178328, A099227.
%K A178327 base,more,nonn
%O A178327 1,2
%A A178327 _Farideh Firoozbakht_, May 29 2010
%E A178327 No more terms less than 56600. - _Robert G. Wilson v_, Jul 27 2010
%E A178327 a(6)-a(17) from _Donovan Johnson_, Aug 09 2010
%E A178327 a(18)-a(20) from _Michael S. Branicky_, Jun 23 2023