A071884 Trajectory of 37 under map x -> A002487(x)*A002487(x+1).

37, 77, 170, 714, 3450, 10414, 68145, 303610, 721305, 1815066, 17782782, 4598150, 68178460, 133118649, 585506070, 20663527908, 777507763200, 264506067126, 73112062114130, 5907184479605316, 516068243814152148

Offset: 0

Author

N. J. A. Sloane and J. H. Conway, Jun 10 2002

Keywords

• nonn

Comments

All smaller starting values lead into a cycle after a small number of steps; this appears to have an infinite trajectory.

Crossrefs

Cf. A002487, A071885, A071886, A071887.

Programs

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;