A123703 a(1)=a(2)=1. For n >= 3, a(n) = |(product{k=1 to n-1} a(k)) - (sum{j=1 to n-1} a(j))|.

1, 1, 1, 2, 3, 2, 2, 12, 264, 75744, 5758891776, 33165272341980979200, 1099935289708766240667530888404210286592, 1209857641546707521062997518664689369471121315619387834957574646785625397657600

Offset: 1

Author

Leroy Quet, Oct 08 2006

Keywords

• easy
• nonn

Crossrefs

Cf. A123702.

Programs

Mathematica

f[l_List] := Append[l, Abs[Times @@ l - Plus @@ l]];Nest[f, {1, 1}, 12] (* Ray Chandler, Oct 09 2006 *)

Extensions

Extended by Ray Chandler, Oct 09 2006