login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A317613 Permutation of the nonnegative integers: lodumo_4 of A047247. 1

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 06:15 EDT 2024. Contains 371265 sequences. (Running on oeis4.)