|
%I #29 Sep 12 2018 18:22:04
%S 0,2,0,3,1,4,2,6,4,9,7,14,12,22,20,35,33,56,54,90,88,145,143,234,232,
%T 378,376,611,609,988,986,1598,1596,2585,2583,4182,4180,6766,6764,
%U 10947,10945,17712,17710,28658,28656,46369,46367,75026,75024,121394,121392,196419,196417,317812,317810
%N Fibonacci shuffles: a(2n) = A000071(n) and a(2n+1) = A001611(n+2).
%C a(2*n+1) = a(2*n) + A157725(n); a(2*n) = a(2*n-1) - 2 for n > 0. - _Reinhard Zumkeller_, Jul 30 2013
%H Reinhard Zumkeller, <a href="/A226649/b226649.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (-1,1,1,1,1).
%F G.f. -x*(2+x^2+2*x^3+2*x) / ( (1+x)*(x^4+x^2-1) ). - _R. J. Mathar_, Jul 15 2013
%F a(n) + a(n+1) = A096748(n+2). - _R. J. Mathar_, Jul 15 2013
%F a(2n-1) - 1 = a(2n) + 1 = fib(n+1) = A000045(n+1) for n > 0. - _T. D. Noe_, Jul 23 2013
%t LinearRecurrence[{-1,1,1,1,1},{0,2,0,3,1},60] (* _Harvey P. Dale_, Sep 12 2018 *)
%o (Haskell)
%o import Data.List (transpose)
%o a226649 n = a226649_list !! n
%o a226649_list = concat $ transpose [a000071_list, drop 2 a001611_list]
%o -- _Reinhard Zumkeller_, Jul 30 2013
%Y Cf. A000071, A001611, A096748.
%K nonn,easy
%O 0,2
%A _V. T. Jayabalaji_, Jun 14 2013
|
