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

1, 120, 133, 267, 298, 803, 917, 973, 1200, 1316, 1330, 1606, 2023, 2511, 2575, 2669, 2670, 2980, 3312, 6179, 6328, 8030, 8083, 8362, 9170, 9730, 10686, 11256, 12000, 12312, 12862, 12927, 12954, 13160, 13300, 14271, 14514, 14615, 14873, 15272

Offset

0,2

Links

Table of n, a(n) for n=0..39.

Example

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

Mathematica

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

Crossrefs

Sequence in context: A271578 A376151 A297152 * A095631 A248662 A259826

Adjacent sequences: A074299 A074300 A074301 * A074303 A074304 A074305

Keyword

base,nonn

Author

Jason Earls, Sep 21 2002

Status

approved