|
%I #35 Sep 08 2022 08:44:33
%S 5,4,7,6,1,0,3,2,13,12,15,14,9,8,11,10,21,20,23,22,17,16,19,18,29,28,
%T 31,30,25,24,27,26,37,36,39,38,33,32,35,34,45,44,47,46,41,40,43,42,53,
%U 52,55,54,49,48,51,50,61,60
%N a(n) = Nimsum n + 5.
%C A self-inverse permutation of the natural numbers. - _Philippe Deléham_, Nov 22 2016
%D E. R. Berlekamp, J. H. Conway and R. K. Guy, Winning Ways, Academic Press, NY, 2 vols., 1982, see p. 60.
%D J. H. Conway, On Numbers and Games. Academic Press, NY, 1976, pp. 51-53.
%H Vincenzo Librandi, <a href="/A004446/b004446.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Ni#Nimsums">Index entries for sequences related to Nim-sums</a>
%H <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (1,1,-1,-1,1,1,-1).
%F a(n) = n + (-1)^n + 4*(-1)^floor(n/4). - Mitchell Harris, Jan 10 2005
%F G.f.: (6*x^6 - x^5 - 3*x^4 - 2*x^2 - x + 5)/((x - 1)^2*(x + 1)*(x^4 + 1)). - _Colin Barker_, Jun 29 2014
%t CoefficientList[Series[(6 x^6 - x^5 - 3 x^4 - 2 x^2 - x + 5)/((x - 1)^2 (x + 1) (x^4 + 1)), {x, 0, 100}], x] (* _Vincenzo Librandi_, Jun 30 2014 *)
%t Table[BitXor[n, 5], {n, 0, 70}] (* _Bruno Berselli_, Nov 22 2016 *)
%o (PARI) Vec((6*x^6-x^5-3*x^4-2*x^2-x+5)/((x-1)^2*(x+1)*(x^4+1)) + O(x^100)) \\ _Colin Barker_, Jun 29 2014
%o (Magma) [BitwiseXor(n, 5): n in [0..70]]; // _Bruno Berselli_, Nov 22 2016
%K nonn,easy
%O 0,1
%A _N. J. A. Sloane_
|
