A117565 - OEIS

%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