A117565 Numbers n such that n is 7*(the sum of decimal digits squared of n).

0, 133, 917, 973

Offset

1,2

Links

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

Mathematica

Do[If[n==7Total[IntegerDigits[n]^2], Print[n]], {n, 0, 2000, 7}]

Crossrefs

Sequence in context: A249108 A020237 A217690 * A357489 A274175 A038491

Adjacent sequences: A117562 A117563 A117564 * A117566 A117567 A117568

Keyword

base,fini,full,nonn

Author

Zak Seidov, Apr 27 2006

Status

approved