A090676 a(n) = round(n^3/12) - floor(n/4)*floor((n+2)/4).

0, 0, 1, 2, 4, 9, 16, 27, 39, 57, 77, 105, 135, 174, 217, 269, 325, 393, 466, 552, 642, 747, 857, 984, 1116, 1266, 1423, 1598, 1780, 1983, 2194, 2427, 2667, 2931, 3203, 3501, 3807, 4140, 4483, 4853, 5233, 5643, 6064, 6516, 6978, 7473, 7979, 8520, 9072, 9660, 10261

Offset

0,4

Comments

An erroneous form of A005044 (n^3/12 should be n^2/12).

References

G. E. Andrews, MacMahon's Partition Analysis II: Fundamental Theorems, Annals Combinatorics, 4 (2000), 327-338.

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Mathematica

Table[Round[n^3/12] - Floor[n/4]*Floor[(n + 2)/4], {n, 0, 50}] (* G. C. Greubel, Jun 26 2017 *)

Prog

(PARI) for(n=0, 25, print1(round(n^3/12) - floor(n/4)*floor((n+2)/4), ", ")) \\ G. C. Greubel, Jun 26 2017

Crossrefs

Sequence in context: A077137 A023194 A114080 * A333779 A261240 A000291

Adjacent sequences: A090673 A090674 A090675 * A090677 A090678 A090679

Keyword

nonn

Author

N. J. A. Sloane, Dec 19 2003

Status

approved