|
%I #52 Sep 08 2022 08:44:51
%S 1,5,15,75,325,1625,7875,39375,195625,978125,4884375,24421875,
%T 122078125,610390625,3051796875,15258984375,76294140625,381470703125,
%U 1907349609375,9536748046875,47683720703125
%N Number of reversible strings with n beads of 5 colors.
%H Vincenzo Librandi, <a href="/A032122/b032122.txt">Table of n, a(n) for n = 0..500</a>
%H C. G. Bower, <a href="/transforms2.html">Transforms (2)</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (5,5,-25).
%F "BIK" (reversible, indistinct, unlabeled) transform of 5, 0, 0, 0...
%F a(n) = 1/2 * (5^n + 5^floor((n+1)/2)) = 5*A001447(n+1). - _Ralf Stephan_, Jul 07 2003
%F G.f.: (1-15*x^2) / ((1-5*x)*(1-5*x^2)). - _Colin Barker_, Jan 30 2012 [Adapted to offset 0 by _Robert A. Russell_, Nov 10 2018]
%F a(n) = 5*a(n-1) + 5*a(n-2) - 25*a(n-3). - _Vincenzo Librandi_, Jan 31 2012
%F a(n) = (A000351(n) + A056451(n)) / 2. - _Robert A. Russell_, Nov 10 2018
%e For a(2)=15, the five achiral strings are AA, BB, CC, DD, and EE; the 10 (equivalent) chiral pairs are AB-BA, AC-CA, AD-DA, AE-EA, BC-CB, BD-DB, BE-EB, CD-DC, CE-EC, and DE-ED.
%t LinearRecurrence[{5, 5, -25}, {1, 5, 15}, 31] (* _Vincenzo Librandi_, Jan 31 2012 *)
%t k=5; Table[(k^n+k^Ceiling[n/2])/2,{n,0,30}] (*_Robert A. Russell_, Nov 25 2017*)
%o (Magma) I:=[1, 5, 15]; [n le 3 select I[n] else 5*Self(n-1)+ 5*Self(n-2)-25*Self(n-3): n in [1..30]]; // _Vincenzo Librandi_, Jan 31 2012
%o (PARI) a(n)=(5^((n+1)\2)+5^n)/2 \\ _Charles R Greathouse IV_, Jan 31 2012
%Y Column 5 of A277504.
%Y Cf. A000351 (oriented), A032088(n>1) (chiral), A056451 (achiral).
%K nonn,easy
%O 0,2
%A _Christian G. Bower_
%E a(0)=1 prepended by _Robert A. Russell_, Nov 10 2018
|
