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

0, 4131, 12546, 14382, 16218, 16830, 26469

Offset

1,2

Comments

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

Links

Table of n, a(n) for n=1..7.

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

Adjacent sequences: A117807 A117808 A117809 * A117811 A117812 A117813

Keyword

base,fini,full,nonn

Author

Zak Seidov, Apr 30 2006

Status

approved