login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A161350
Numbers with property that the digital sum times the product of the digits is a square.
0
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 22, 30, 39, 40, 50, 60, 70, 80, 88, 90, 93, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 120, 123, 130, 132, 140, 144, 150, 160, 170, 180, 189, 190, 198, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 213, 220
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
Cf. A007953 (sum of digits), A007954 (product of digits).
Sequence in context: A190219 A038367 A214958 * A342048 A108652 A140665
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 07 2009
STATUS
approved