

A117810


Numbers n such that n is k*(the sum of decimal digits squared of n), k=153 case.


0




OFFSET

1,2


COMMENTS

k=153 case has the longest sequence for k <= 1000.


LINKS



MATHEMATICA

k=153; Do[If[n==k*Total[IntegerDigits[n]^2], Print[n]], {n, 0, 200000, k}]


CROSSREFS



KEYWORD

base,fini,full,nonn


AUTHOR



STATUS

approved



