login
A184328
Primes whose digital product is a positive square.
1
11, 19, 41, 149, 191, 199, 229, 263, 281, 313, 331, 419, 433, 449, 491, 499, 661, 683, 797, 821, 829, 863, 881, 911, 919, 941, 977, 991, 1229, 1289, 1433, 1499, 1559, 1669, 1747, 1889, 1933, 1949, 1999, 2129, 2383, 2693, 2819, 2833, 2963, 3319, 3391, 3413
OFFSET
1,1
LINKS
MATHEMATICA
fQ[n_] := Module[{d = Times @@ IntegerDigits[n]}, d > 0 && IntegerQ[Sqrt[d]]]; Select[Prime[Range[1000]], fQ] (* T. D. Noe, Dec 24 2012 *)
PROG
(Magma) [p: p in PrimesUpTo(4000) | not IsZero(t) and IsSquare(t) where t is &*Intseq(p)]; // Bruno Berselli, Dec 25 2012
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Dario Piazzalunga, Dec 24 2012
EXTENSIONS
Corrected and extended by T. D. Noe, Dec 24 2012
STATUS
approved