login
A117810
Numbers n such that n is k*(the sum of decimal digits squared of n), k=153 case.
0
0, 4131, 12546, 14382, 16218, 16830, 26469
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
Cf. A117565 k=7 case.
Sequence in context: A361413 A339798 A168631 * A236871 A300194 A188254
KEYWORD
base,fini,full,nonn
AUTHOR
Zak Seidov, Apr 30 2006
STATUS
approved