|
|
|
|
37, 77, 170, 714, 3450, 10414, 68145, 303610, 721305, 1815066, 17782782, 4598150, 68178460, 133118649, 585506070, 20663527908, 777507763200, 264506067126, 73112062114130, 5907184479605316, 516068243814152148
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
All smaller starting values lead into a cycle after a small number of steps; this appears to have an infinite trajectory.
|
|
LINKS
|
|
|
MAPLE
|
# n is starting value, m is length of trajectory to compute
f := proc(n, m) local t1, i, j; t1 := [n]; for i from 2 to m do j := t1[i-1]; t1 := [op(t1), A002487(j)*A002487(j+1)]; od: t1; end;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|