A074302 - OEIS

%I #7 Dec 15 2017 17:36:01

%S 1,120,133,267,298,803,917,973,1200,1316,1330,1606,2023,2511,2575,

%T 2669,2670,2980,3312,6179,6328,8030,8083,8362,9170,9730,10686,11256,

%U 12000,12312,12862,12927,12954,13160,13300,14271,14514,14615,14873,15272

%N Sum of squares of digits of n is equal to the largest prime factor of n.

%e 298 = 2.'149' and 2^2 + 9^2 + 8^2 = 149.

%t Select[Range[16000],FactorInteger[#][[-1,1]]==Total[IntegerDigits[#]^2]&] (* _Harvey P. Dale_, Sep 20 2013 *)

%K base,nonn

%O 0,2

%A _Jason Earls_, Sep 21 2002