|
Search: id:A039943
|
|
|
| A039943 |
|
Every integer eventually goes to one of these under the x goes to sum of squares of digits map. |
|
+0
2
|
| |
|
|
OFFSET
|
0,3
|
|
|
REFERENCES
|
A. Porges, A set of eight numbers, Amer. Math. Monthly, 52 (1945), 379-382.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Happy Number
|
|
MATHEMATICA
|
lst = {}; Do[a = NestWhile[Plus @@ (IntegerDigits@#^2) &, n, Unequal, All]; If[FreeQ[lst, a], AppendTo[lst, a]], {n, 10^4}] (from Robert G. Wilson v (rgwv(at)rgwv.com), Jan 19 2006)
|
|
CROSSREFS
|
Cf. A000216, A003621.
Adjacent sequences: A039940 A039941 A039942 this_sequence A039944 A039945 A039946
Sequence in context: A077476 A032827 A071966 this_sequence A067671 A075331 A065661
|
|
KEYWORD
|
nonn,fini,full
|
|
AUTHOR
|
njas
|
|
|
Search completed in 0.002 seconds
|
