A228448 a(n) = floor(n!/3^n).

1, 0, 0, 0, 0, 0, 0, 2, 6, 18, 61, 225, 901, 3905, 18226, 91134, 486048, 2754274, 16525645, 104662422, 697749481, 4884246371, 35817806721, 274603184861, 2196825478892, 18306878990770, 158659617920008, 1427936561280078, 13327407905280733, 128831609751047086

Offset

0,8

Links

Table of n, a(n) for n=0..29.

Mathematica

Table[Floor[n!/3^n], {n, 0, 30}] (* Harvey P. Dale, May 24 2018 *)

Prog

(Python)
import math
for n in range(99): print str(math.factorial(n)/(3**n))+', ',

Crossrefs

Cf. A000142, A066979, A212309.

Sequence in context: A150051 A148462 A123639 * A346490 A177473 A177471

Adjacent sequences: A228445 A228446 A228447 * A228449 A228450 A228451

Keyword

nonn,less

Author

Alex Ratushnyak, Oct 27 2013

Status

approved