OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
n=51223, SquareSumDigit=25+1+4+4+9=43, Sigma[2,51223]=2623908580 with digit sum=43.
MATHEMATICA
Do[s=Apply[Plus, IntegerDigits[DivisorSigma[2, n]]]- Apply[Plus, IntegerDigits[n]^2]; If[Equal[s, 0], Print[n]], {n, 1, 10000}]
Select[Range[12000], Total[Flatten[IntegerDigits[#]^2]]== Total[ IntegerDigits[ DivisorSigma[2, #]]]&] (* Harvey P. Dale, Sep 12 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Jan 16 2002
STATUS
approved