This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A061868 #7 Dec 12 2013 15:56:25 %S A061868 0,1,2,3,10,12,20,21,30,45,48,51,60,90,95,100,101,102,103,104,105,110, %T A061868 120,122,130,140,148,150,175,176,180,200,201,202,203,210,212,220,221, %U A061868 230,247,248,249,257,265,266,274,283,284,300,301,302,310,318,319,321 %N 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). %H A061868 Harvey P. Dale, <a href="/A061868/b061868.txt">Table of n, a(n) for n = 1..1000</a> %t A061868 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 *) %Y A061868 A061268 does not allow zero product of digits. %K A061868 base,easy,nonn %O A061868 1,3 %A A061868 Larry Reeves (larryr(AT)acm.org), May 11 2001