login
A129958
First differences of A129957.
1
0, 8, 18, 38, 60, 92, 126, 170, 216, 272, 330, 398, 468, 548, 630, 722, 816, 920, 1026, 1142, 1260, 1388, 1518, 1658, 1800, 1952, 2106, 2270, 2436, 2612, 2790, 2978, 3168, 3368, 3570, 3782, 3996, 4220, 4446, 4682, 4920
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
Sequence in context: A211528 A297841 A098944 * A082227 A134062 A251251
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jun 10 2007
EXTENSIONS
Edited, corrected and extended by Stefan Steinerberger, Jul 21 2007
STATUS
approved