%I #3 Mar 30 2012 17:26:21
%S 0,133,917,973
%N Numbers n such that n is 7*(the sum of decimal digits squared of n).
%t Do[If[n==7Total[IntegerDigits[n]^2],Print[n]],{n,0,2000,7}]
%K base,fini,full,nonn
%O 1,2
%A _Zak Seidov_, Apr 27 2006
