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 A067344 #7 Oct 15 2013 22:31:16
%S A067344 1,21,41,120,242,312,323,401,501,1040,1114,1141,1204,1214,1233,1241,
%T A067344 1304,1503,2033,2115,2133,2140,2403,3010,3014,3124,3211,3304,3322,
%U A067344 4001,4012,4121,4301,4310,5130,10044,10214,10242,10320,10324,11042,11115
%N A067344 Sum of decimal digits of square of divisors of n equals sum of square of digits of n.
%H A067344 Harvey P. Dale, <a href="/A067344/b067344.txt">Table of n, a(n) for n = 1..1000</a>
%F A067344 A007953[A001157(n)]=A007953[n]^2
%e A067344 n=51223, SquareSumDigit=25+1+4+4+9=43, Sigma[2,51223]=2623908580 with digit sum=43.
%t A067344 Do[s=Apply[Plus, IntegerDigits[DivisorSigma[2, n]]]- Apply[Plus, IntegerDigits[n]^2]; If[Equal[s, 0], Print[n]], {n, 1, 10000}]
%t A067344 Select[Range[12000],Total[Flatten[IntegerDigits[#]^2]]== Total[ IntegerDigits[ DivisorSigma[2,#]]]&] (* _Harvey P. Dale_, Sep 12 2012 *)
%Y A067344 Cf. A067342, A067343, A007953, A001157.
%K A067344 base,nonn
%O A067344 1,2
%A A067344 _Labos Elemer_, Jan 16 2002