OFFSET
0,2
MATHEMATICA
f[n_] := If[Mod[n, 2] == 0, n^3 + 1, n^3]; Table[f[n + 1] - f[n], {n, 0, 40}]
Differences[Table[If[OddQ[n], n^3, n^3+1], {n, 0, 50}]] (* Harvey P. Dale, Aug 26 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jun 10 2007
EXTENSIONS
Edited, corrected and extended by Stefan Steinerberger, Jul 21 2007
STATUS
approved