OFFSET
1,4
MATHEMATICA
f[l_List] := Append[l, Abs[Times @@ l - Plus @@ l]]; Nest[f, {1, 1}, 12] (* Ray Chandler, Oct 09 2006 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Oct 08 2006
EXTENSIONS
Extended by Ray Chandler, Oct 09 2006
STATUS
approved