

A117565


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


1




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 * A274175 A038491 A020265
Adjacent sequences: A117562 A117563 A117564 * A117566 A117567 A117568


KEYWORD

base,fini,full,nonn


AUTHOR

Zak Seidov, Apr 27 2006


STATUS

approved



