%I #29 Mar 13 2024 04:42:35
%S 0,1,1,1,2,2,4,5,10,14,26,39,69,107,183,289,484,772,1276,2047,3356,
%T 5402,8812,14213,23113,37325,60581,97905,158718,256622,415716,672337,
%U 1088662,1760998,2850646,4611643,7463885,12075527
%N "BHK" (reversible, identity, unlabeled) transform of 0,1,1,1...
%H Vincenzo Librandi, <a href="/A032090/b032090.txt">Table of n, a(n) for n = 1..1000</a>
%H C. G. Bower, <a href="/transforms2.html">Transforms (2)</a>
%H <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (2,1,-3,1,-1,0,1).
%F G.f.: -x^2*(x^6+x^5-x^4+2*x^3-2*x^2-x+1) / ((x-1)*(x^2+x-1)*(x^4+x^2-1)). [_Colin Barker_, Dec 07 2012]
%F 2*a(n) = 2+A000045(n-1) - |A051792(n+5)|, n>1. - _R. J. Mathar_, Mar 24 2023
%t CoefficientList[Series[- x (x^6 + x^5 - x^4 + 2 x^3 - 2 x^2 - x + 1)/((x - 1) (x^2 + x - 1) (x^4 + x^2 - 1)), {x, 0, 40}], x] (* _Vincenzo Librandi_, Oct 19 2013 *)
%t LinearRecurrence[{2,1,-3,1,-1,0,1},{0,1,1,1,2,2,4,5},40] (* _Harvey P. Dale_, Mar 31 2019 *)
%Y For n>2, a(n) = A032089(n-1) + [n even], a(2n) = A032097(n-1).
%K nonn,easy
%O 1,5
%A _Christian G. Bower_