login
A117565
Numbers n such that n is 7*(the sum of decimal digits squared of n).
1
0, 133, 917, 973
OFFSET
1,2
MATHEMATICA
Do[If[n==7Total[IntegerDigits[n]^2], Print[n]], {n, 0, 2000, 7}]
CROSSREFS
Sequence in context: A249108 A020237 A217690 * A357489 A274175 A038491
KEYWORD
base,fini,full,nonn
AUTHOR
Zak Seidov, Apr 27 2006
STATUS
approved