|
|
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).
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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.
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Larry Reeves (larryr(AT)acm.org), May 11 2001
|
|
STATUS
|
approved
|
|
|
|