A184328 Primes whose digital product is a positive square.

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

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

Cf. A000040, A053666, A007954, A007605, A065073, A068395.

Sequence in context: A353102 A068493 A167535 * A260271 A275797 A294993

Adjacent sequences: A184325 A184326 A184327 * A184329 A184330 A184331

Keyword

nonn,base

Author

Dario Piazzalunga, Dec 24 2012

Extensions

Corrected and extended by T. D. Noe, Dec 24 2012

Status

approved