RosettaCodeData/Task/Pathological-floating-point-problems/Mathematica/pathological-floating-point-problems-1.math

v[1] = 2;
v[2] = -4;
v[n_] := Once[111 - 1130/v[n - 1] + 3000/(v[n - 1]*v[n - 2])]
N[Map[v, {3, 4, 5, 6, 7, 8, 20, 30, 50, 100}], 80]