login
a(n) = 3*(9^n - 1)/4.
5

%I #61 Sep 17 2024 18:39:38

%S 0,6,60,546,4920,44286,398580,3587226,32285040,290565366,2615088300,

%T 23535794706,211822152360,1906399371246,17157594341220,

%U 154418349070986,1389765141638880,12507886274749926,112570976472749340,1013138788254744066,9118249094292696600,82064241848634269406,738578176637708424660

%N a(n) = 3*(9^n - 1)/4.

%C Number of walks of length 2n+1 along the edges of a (3 dimensional) cube between two opposite vertices.

%C Urn A initially contains 3 labeled balls while urn B is empty. A ball is randomly selected and switched from one urn to the other. a(n)/3^(2n+1) is the probability that urn A is empty after 2n+1 switches. - _Geoffrey Critzer_, May 23 2013

%H G. C. Greubel, <a href="/A054880/b054880.txt">Table of n, a(n) for n = 0..1000</a>

%H G. Benkart and D. Moon, <a href="http://arxiv.org/abs/1409.8154">A Schur-Weyl Duality Approach to Walking on Cubes</a>, arXiv preprint arXiv:1409.8154 [math.RT], 2014 and <a href="http://dx.doi.org/10.1007/s00026-016-0311-3">Ann. Combin. 20 (3) (2016) 397-417</a>

%H R. J. Mathar, <a href="/A102518/a102518.pdf">Counting Walks on Finite Graphs</a>, Nov 2020, Section 5.

%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (10,-9).

%F G.f.: (3/4)/(1 - 9*x) - (3/4)/(1 - x).

%F a(n) = 6*A002452(n).

%F sin(x)^3 = Sum_{k>=0} (-1)^(k+1)*a(k)*x^(2k+1)/(2k+1)!. - Dan Fux (dan.fux(AT)OpenGaia.com or danfux(AT)OpenGaia.com), Apr 08 2001

%F a(n) = A015518(2n+1) - 1 = (A046717(2n+1) - 1)/2. - _M. F. Hasler_, Mar 20 2008

%F a(n) = 9*a(n-1) + 6 with n > 0, a(0) = 0. - _Vincenzo Librandi_, Aug 07 2010

%F a(n) = A066443(n) - 1. - _Georg Fischer_, Nov 25 2018

%F E.g.f.: 3*(exp(9*x) - exp(x))/4. - _G. C. Greubel_, Jul 14 2019

%F a(n) = 10*a(n-1) - 9*a(n-2) with a(0) = 0 and a(1) = 6. - _Miquel A. Fiol_, Mar 09 2024

%t Table[(2 n + 1)! Coefficient[Series[Sinh[x]^3, {x, 0, 2 n + 1}],

%t x^(2 n + 1)], {n, 0, 30}] (* _Geoffrey Critzer_, May 23 2013 *)

%t LinearRecurrence[{10,-9},{0,6},30] (* _Harvey P. Dale_, Sep 17 2024 *)

%o (PARI) vector(30, n, n--; 3*(9^n -1)/4) \\ _G. C. Greubel_, Jul 14 2019

%o (Magma) [3*(9^n -1)/4: n in [0..30]]; // _G. C. Greubel_, Jul 14 2019

%o (Sage) [3*(9^n -1)/4 for n in (0..30)] # _G. C. Greubel_, Jul 14 2019

%o (GAP) List([0..30], n-> 3*(9^n -1)/4) # _G. C. Greubel_, Jul 14 2019

%Y Cf. A002452, A015518, A046717, A066443.

%K nonn,easy,walk

%O 0,2

%A Paolo Dominici (pl.dm(AT)libero.it), May 23 2000