OFFSET
1,2
COMMENTS
93 is in the list because (9+3)*(9*3) = 12*27 = 324 = 18^2.
MAPLE
a := proc (n) local nn, L: nn := convert(n, base, 10): L := nops(nn): if type(sqrt(add(nn[i], i = 1 .. L)*(product(nn[i], i = 1 .. L))), integer) = true then n else end if end proc: seq(a(n), n = 1 .. 220); # Emeric Deutsch, Jun 27 2009
PROG
(PARI) isok(n) = my(d=digits(n)); issquare(sumdigits(n)*prod(k=1, #d, d[k])); \\ Michel Marcus, Feb 14 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 07 2009
STATUS
approved