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