login
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, 1, 2, 3, 2, 2, 12, 264, 75744, 5758891776, 33165272341980979200, 1099935289708766240667530888404210286592, 1209857641546707521062997518664689369471121315619387834957574646785625397657600
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
Cf. A123702.
Sequence in context: A298310 A138680 A171684 * A105436 A266911 A244075
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Oct 08 2006
EXTENSIONS
Extended by Ray Chandler, Oct 09 2006
STATUS
approved