A161349 Positive numbers with property that the digital sum plus the product of the digits is a square.

2, 8, 10, 14, 40, 41, 49, 90, 94, 100, 103, 108, 111, 117, 122, 130, 133, 138, 144, 155, 166, 171, 177, 180, 183, 188, 199, 202, 207, 212, 220, 221, 229, 270, 279, 292, 297, 301, 306, 310, 313, 318, 331, 333, 360, 381, 400, 405, 414, 441, 448, 450, 484, 504

Offset

1,1

Comments

183 is in the list because 1+8+3+(1x8x3) = 12+24 = 36 = 6^2.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Range[600], With[{c=IntegerDigits[#]}, IntegerQ[Sqrt[Total[c]+ Times@@c]]&]] (* Harvey P. Dale, Apr 28 2012 *)

Crossrefs

Cf. A007953.

Sequence in context: A102278 A110961 A213535 * A336176 A329952 A073886

Adjacent sequences: A161346 A161347 A161348 * A161350 A161351 A161352

Keyword

nonn,base

Author

Claudio Meller, Jun 07 2009

Status

approved