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 A184328 #15 Sep 08 2022 08:45:55
%S A184328 11,19,41,149,191,199,229,263,281,313,331,419,433,449,491,499,661,683,
%T A184328 797,821,829,863,881,911,919,941,977,991,1229,1289,1433,1499,1559,
%U A184328 1669,1747,1889,1933,1949,1999,2129,2383,2693,2819,2833,2963,3319,3391,3413
%N A184328 Primes whose digital product is a positive square.
%H A184328 Vincenzo Librandi, <a href="/A184328/b184328.txt">Table of n, a(n) for n = 1..1000</a>
%t A184328 fQ[n_] := Module[{d = Times @@ IntegerDigits[n]}, d > 0 && IntegerQ[Sqrt[d]]];Select[Prime[Range[1000]], fQ] (* _T. D. Noe_, Dec 24 2012 *)
%o A184328 (Magma) [p: p in PrimesUpTo(4000) | not IsZero(t) and IsSquare(t) where t is &*Intseq(p)]; // _Bruno Berselli_, Dec 25 2012
%Y A184328 Cf. A000040, A053666, A007954, A007605, A065073, A068395.
%K A184328 nonn,base
%O A184328 1,1
%A A184328 _Dario Piazzalunga_, Dec 24 2012
%E A184328 Corrected and extended by _T. D. Noe_, Dec 24 2012