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
Programs
-
Mathematica
Table[Floor[n!/3^n],{n,0,30}] (* Harvey P. Dale, May 24 2018 *)
-
Python
import math for n in range(99): print(math.factorial(n)//(3**n), end=', ')