|
Search: id:A117565
|
|
|
| A117565 |
|
Numbers n such that n is 7*(the sum of decimal digits squared of n). |
|
+0
2
|
| |
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
Do[If[n==7Total[IntegerDigits[n]^2], Print[n]], {n, 0, 2000, 7}]
|
|
CROSSREFS
|
Sequence in context: A055940 A137879 A020237 this_sequence A038491 A020265 A028295
Adjacent sequences: A117562 A117563 A117564 this_sequence A117566 A117567 A117568
|
|
KEYWORD
|
base,fini,full,nonn
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Apr 27 2006
|
|
|
Search completed in 0.002 seconds
|
