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 A230084 #9 Feb 01 2022 14:56:48
%S A230084 442619,2483219,6325619,7567919,7886519,9883673,9962219,11117123,
%T A230084 14669519,15446819,17958419,21337279,23623129,26453671,26872919,
%U A230084 27234419,27536519,27948343,32638213,32964341,33539783,33813419,34277819,34554719,35732381,37571519
%N A230084 Smallest of three consecutive primes whose product of digits is equal and nonzero.
%H A230084 Shyam Sunder Gupta, <a href="/A230084/b230084.txt">Table of n, a(n) for n = 1..1713</a>
%e A230084 442619 is in the sequence because 442619,442633 and 442691 are consecutive primes and the product of the digits of each = 1728.
%t A230084 a = {}; m = 1; s = 1; Do[ If[(y = Apply[Times, IntegerDigits[x = Prime[n]]]) == s && s != 0, m = m + 1; If[m > 2, AppendTo[a, Prime[n - 2]]], m = 1]; s = y, {n, 1, 100000}]; a
%t A230084 Transpose[Select[Partition[Prime[Range[23*10^5]],3,1],Times@@ IntegerDigits[ #[[1]]]==Times@@IntegerDigits[#[[2]]] == Times@@ IntegerDigits[#[[3]]]>0&]][[1]] (* _Harvey P. Dale_, Apr 05 2016 *)
%t A230084 pdeQ[{a_,b_,c_}]:=Module[{un=Union[Times@@@IntegerDigits[{a,b,c}]]},un != {0} && Length[un]==1]; Select[Partition[Prime[Range[23*10^5]],3,1],pdeQ][[All,1]] (* _Harvey P. Dale_, Feb 01 2022 *)
%Y A230084 Cf. A230082, A230083, A007954, A053666.
%K A230084 nonn,base
%O A230084 1,1
%A A230084 _Shyam Sunder Gupta_, Oct 08 2013