The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #33 Mar 12 2023 04:19:45
%S 2,3,0,1,4,5,6,7,10,11,8,9,12,13,14,15,18,19,16,17,20,21,22,23,26,27,
%T 24,25,28,29,30,31,34,35,32,33,36,37,38,39,42,43,40,41,44,45,46,47,50,
%U 51,48,49,52,53,54,55,58,59,56,57,60,61,62,63,66,67,64
%N Permutation of the nonnegative integers: lodumo_4 of A047247.
%C Write n in base 8, then apply the following substitution to the rightmost digit: '0'->'2, '1'->'3', and vice versa. Convert back to decimal.
%C A self-inverse permutation: a(a(n)) = n.
%C Array whose columns are, in this order, A047463, A047621, A047451 and A047522, read by rows.
%H G. C. Greubel, <a href="/A317613/b317613.txt">Table of n, a(n) for n = 0..10000</a>
%H OEIS wiki, <a href="https://oeis.org/wiki/Lodumo_transform">Lodumo transform</a>.
%H <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (2,-2,2,-2,2,-2,2,-1).
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>.
%F a(n) = 2*a(n-1) - 2*a(n-2) + 2*a(n-3) - 2*a(n-4) + 2*a(n-5) - 2*a(n-6) + 2*a(n-7) - a(n-8), n > 7.
%F a(n) = (4*(floor(((2*n + 4) mod 8)/4) - floor(((n + 2) mod 8)/4)) + 2*n)/2.
%F a(n) = lod_4(A047247(n+1)).
%F a(4*n) = A047463(n+1).
%F a(4*n+1) = A047621(n+1).
%F a(4*n+2) = A047451(n+1).
%F a(4*n+3) = A047522(n+1).
%F a(A042948(n)) = A047596(n+1).
%F a(A042964(n+1)) = A047551(n+1).
%F G.f.: (x^7 + x^5 + 3*x^3 - 2*x^2 - x + 2)/((x-1)^2 * (x^2+1) * (x^4+1)).
%F E.g.f.: x*exp(x) + cos(x) + sin(x) + cos(x/sqrt(2))*cosh(x/sqrt(2)) + (sqrt(2)*cos(x/sqrt(2)) - sin(x/sqrt(2)))*sinh(x/sqrt(2)).
%F a(n+8) = a(n) + 8 . - _Philippe Deléham_, Mar 09 2023
%F Sum_{n>=3} (-1)^(n+1)/a(n) = 1/6 + log(2). - _Amiram Eldar_, Mar 12 2023
%e a(25) = a('3'1') = '3'3' = 27.
%e a(26) = a('3'2') = '3'0' = 24.
%e a(27) = a('3'3') = '3'1' = 25.
%e a(28) = a('3'4') = '3'4' = 28.
%e a(29) = a('3'5') = '3'5' = 29.
%e The sequence as array read by rows:
%e A047463, A047621, A047451, A047522;
%e 2, 3, 0, 1;
%e 4, 5, 6, 7;
%e 10, 11, 8, 9;
%e 12, 13, 14, 15;
%e 18, 19, 16, 17;
%e 20, 21, 22, 23;
%e 26, 27, 24, 25;
%e 28, 29, 30, 31;
%e ...
%t Table[(4*(Floor[1/4 Mod[2*n + 4, 8]] - Floor[1/4 Mod[n + 2, 8]]) + 2*n)/2, {n, 0, 100}]
%t f[n_] := Block[{id = IntegerDigits[n, 8]}, FromDigits[ Join[Most@ id /. {{} -> {0}}, {id[[-1]] /. {0 -> 2, 1 -> 3, 2 -> 0, 3 -> 1}}], 8]]; Array[f, 67, 0] (* or *)
%t CoefficientList[ Series[(x^7 + x^5 + 3x^3 - 2x^2 - x + 2)/((x - 1)^2 (x^6 + x^4 + x^2 + 1)), {x, 0, 70}], x] (* or *)
%t LinearRecurrence[{2, -2, 2, -2, 2, -2, 2, -1}, {2, 3, 0, 1, 4, 5, 6, 7}, 70] (* _Robert G. Wilson v_, Aug 01 2018 *)
%o (Maxima) makelist((4*(floor(mod(2*n + 4, 8)/4) - floor(mod(n + 2, 8)/4)) + 2*n)/2, n, 0, 100);
%o (PARI) my(x='x+O('x^100)); Vec((x^7+x^5+3*x^3-2*x^2-x+2)/((1-x)^2*(x^6+x^4+ x^2+1))) \\ _G. C. Greubel_, Sep 25 2018
%o (Magma) m:=100; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!((x^7+x^5+3*x^3-2*x^2-x+2)/((1-x)^2*(x^6+x^4+ x^2+1)))); // _G. C. Greubel_, Sep 25 2018
%Y Cf. A047225, A047243, A047257, A064429, A080412, A159959, A026185.
%K nonn,easy,base
%O 0,1
%A _Franck Maminirina Ramaharo_, Aug 01 2018