Levine-O'Sullivan Sequence

Author

Eric W. Weisstein
July 7, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/Levine-OSullivanSequence.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Levine-OSullivanSequence.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Definition

x[1]:=1
x[i_]:=x[i]=Max[Table[(j+1)(i-x[j]),{j,i-1}]]

Table[x[n],{n,20}]