OFFSET
1,2
COMMENTS
k=153 case has the longest sequence for k <= 1000.
MATHEMATICA
k=153; Do[If[n==k*Total[IntegerDigits[n]^2], Print[n]], {n, 0, 200000, k}]
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Zak Seidov, Apr 30 2006
STATUS
approved