A062512 a(n) = floor( gamma(n/4) * gamma(n+1)/4 ).

0, 0, 1, 6, 27, 159, 1158, 10080, 102786, 1205977, 16050140, 239500800, 3968569039, 72431014665, 1445957143579, 31384184832000, 736725156413938, 18617668009588286, 504407689966441334, 14597412049059840000

Offset

1,4

Links

G. C. Greubel, Table of n, a(n) for n = 1..390 (terms 1..100 from Harry J. Smith)

Mathematica

Table[Floor[Gamma[n/4]*Gamma[n+1]/4], {n, 50}] (* G. C. Greubel, Jan 15 2018 *)

Prog

(PARI) for(n=1, 20, print1(floor(gamma(n/4)*(gamma(n+1)/4)), ", "))
(PARI) { default(realprecision, 300); for (n=1, 100, write("b062512.txt", n, " ", (gamma(n/4)*(gamma(n + 1))\4)) ) } \\ Harry J. Smith, Aug 08 2009
(Magma) [Floor(Gamma(n/4)*Gamma(n + 1)/4): n in [1..30]]; // G. C. Greubel, Jan 15 2018

Crossrefs

Sequence in context: A018901 A215704 A137968 * A087297 A117336 A202766

Adjacent sequences: A062509 A062510 A062511 * A062513 A062514 A062515

Keyword

easy,nonn

Author

Jason Earls, Jun 24 2001

Extensions

Terms corrected by Harry J. Smith, Aug 08 2009

Status

approved