|
| |
|
|
A097031
|
|
Length of terminal cycle if unitary-proper-divisor-sum function f[x]=A063919[x] is iterated and the initial value is n.
|
|
0
| |
|
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 2, 1, 1, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,30
|
|
|
EXAMPLE
| n=1506: iteration-list={1506, 1518, 1938, 2382, 2394, 2406, [2418, ...., 3582, 2418}. After a transient of length 6 the iteration ends in a cycle of length 14: a[1506]=14.
|
|
|
CROSSREFS
| Cf. A002187, A063919, a063991, A097024, A097030-A097037.
Sequence in context: A103755 A202150 A093818 * A120263 A030580 A030579
Adjacent sequences: A097028 A097029 A097030 * A097032 A097033 A097034
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Aug 30 2004
|
| |
|
|
