Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #13 Nov 21 2013 12:49:38
%S 2,8,10,14,40,41,49,90,94,100,103,108,111,117,122,130,133,138,144,155,
%T 166,171,177,180,183,188,199,202,207,212,220,221,229,270,279,292,297,
%U 301,306,310,313,318,331,333,360,381,400,405,414,441,448,450,484,504
%N Positive numbers with property that the digital sum plus the product of the digits is a square.
%C 183 is in the list because 1+8+3+(1x8x3) = 12+24 = 36 = 6^2.
%H Harvey P. Dale, <a href="/A161349/b161349.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[600],With[{c=IntegerDigits[#]},IntegerQ[Sqrt[Total[c]+ Times@@c]]&]] (* _Harvey P. Dale_, Apr 28 2012 *)
%Y Cf. A007953.
%K nonn,base
%O 1,1
%A _Claudio Meller_, Jun 07 2009