This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 (list; graph; refs; listen; history; text; internal format)
 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: A061246 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 20 01:17 EDT 2019. Contains 325168 sequences. (Running on oeis4.)