login
A062512
a(n) = floor( gamma(n/4) * gamma(n+1)/4 ).
1
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
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jun 24 2001
EXTENSIONS
Terms corrected by Harry J. Smith, Aug 08 2009
STATUS
approved