login
A071884
Trajectory of 37 under map x -> A002487(x)*A002487(x+1).
3
37, 77, 170, 714, 3450, 10414, 68145, 303610, 721305, 1815066, 17782782, 4598150, 68178460, 133118649, 585506070, 20663527908, 777507763200, 264506067126, 73112062114130, 5907184479605316, 516068243814152148
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.
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
N. J. A. Sloane and J. H. Conway, Jun 10 2002
STATUS
approved