OFFSET
1,2
COMMENTS
A subsequence of A000292.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[Floor[n^(3/2)]*Floor[n^(3/2)+1]*Floor[n^(3/2)+2]/6, {n, 1, 80}]
PROG
(Magma) [Floor(n^(3/2))*Floor(n^(3/2)+1)*Floor(n^(3/2)+2)/6: n in [1..60]]; // Vincenzo Librandi, Sep 13 2011
(PARI) for(n=1, 50, print1(floor(n^(3/2))*floor(1+n^(3/2))*floor(2+n^(3/2))/6, ", ")) \\ G. C. Greubel, Jul 08 2017
(PARI) a(n) = my(f=sqrtnint(n^3, 2)); f*(f+1)*(f+2)/6; \\ Michel Marcus, Jul 08 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 31 2011
STATUS
approved