A061868 Numbers n such that n^2 has property that the sum of its digits and the product of its digits are squares (allowing zeros).

0, 1, 2, 3, 10, 12, 20, 21, 30, 45, 48, 51, 60, 90, 95, 100, 101, 102, 103, 104, 105, 110, 120, 122, 130, 140, 148, 150, 175, 176, 180, 200, 201, 202, 203, 210, 212, 220, 221, 230, 247, 248, 249, 257, 265, 266, 274, 283, 284, 300, 301, 302, 310, 318, 319, 321

Offset

1,3

Links

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

Mathematica

spsQ[n_]:=Module[{idn2=IntegerDigits[n^2]}, IntegerQ[Sqrt[Total[idn2]]] && IntegerQ[ Sqrt[Times@@idn2]]]; Select[Range[0, 350], spsQ] (* Harvey P. Dale, Dec 12 2013 *)

Crossrefs

A061268 does not allow zero product of digits.

Sequence in context: A006092 A015859 A022427 * A004679 A168060 A306076

Adjacent sequences: A061865 A061866 A061867 * A061869 A061870 A061871

Keyword

base,easy,nonn

Author

Larry Reeves (larryr(AT)acm.org), May 11 2001

Status

approved