OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
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