cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-5 of 5 results.

A245605 Permutation of natural numbers: a(1) = 1, a(2n) = 2 * a(A064989(2n-1)), a(2n-1) = 1 + (2 * a(A064989(2n-1)-1)).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 9, 10, 7, 8, 13, 18, 17, 26, 11, 12, 37, 34, 25, 74, 15, 16, 69, 50, 21, 14, 19, 20, 33, 138, 41, 66, 35, 52, 53, 22, 277, 82, 31, 32, 45, 554, 65, 90, 27, 36, 1109, 130, 101, 42, 43, 28, 73, 2218, 149, 30, 71, 104, 57, 146, 209, 114, 51, 148, 133, 70, 293, 418, 555, 164, 141, 586, 329, 282, 75, 68, 105, 106, 1173, 658, 23, 24
Offset: 1

Views

Author

Antti Karttunen, Jul 29 2014

Keywords

Comments

The even bisection halved gives A245607. The odd bisection incremented by one and halved gives A245707.

Links

Crossrefs

Inverse: A245606.
Cf. A048673, A064216, A064989, A245607, A245705, A245707.
Similar entanglement permutations: A244319, A005940, A163511, A243287, A243343, A243345, A244321, A245603, A245613, A135141, A237427.

Programs

  • PARI
    A064989(n) = my(f = factor(n)); for(i=1, #f~, if((2 == f[i,1]),f[i,1] = 1,f[i,1] = precprime(f[i,1]-1))); factorback(f);
A245605(n) = if(1==n, 1, if(0==(n%2), 2*A245605(A064989(n-1)), 1+(2*A245605(A064989(n)-1))));
for(n=1, 10001, write("b245605.txt", n, " ", A245605(n)));
  • Scheme
    ;; With memoization-macro definec.
(definec (A245605 n) (cond ((= 1 n) 1) ((even? n) (* 2 (A245605 (A064989 (- n 1))))) (else (+ 1 (* 2 (A245605 (-1+ (A064989 n))))))))

Formula

a(1) = 1, a(2n) = 2 * a(A064989(2n-1)), a(2n-1) = 1 + (2 * a(A064989(2n-1)-1)).
a(1) = 1, a(2n) = 2 * a(A064216(n)), a(2n-1) = 1 + (2 * a(A064216(n)-1)).
As a composition of related permutations:
a(n) = A245607(A048673(n)).

A244152 Self-inverse permutation of natural numbers: a(1) = 1; thereafter, if n is k-th number with an odd number of prime divisors (counted with multiplicity) [i.e., n = A026424(k)], a(n) = A028260(1+a(k)), otherwise, when n is k-th number > 1 with an even number of prime divisors [i.e., n = A028260(1+k)], a(n) = A026424(a(k)).

Original entry on oeis.org

1, 4, 10, 2, 24, 7, 6, 55, 18, 3, 16, 15, 121, 44, 12, 11, 39, 9, 36, 35, 105, 31, 250, 5, 29, 28, 93, 26, 25, 86, 22, 82, 238, 79, 20, 19, 81, 72, 17, 68, 218, 65, 517, 14, 62, 67, 60, 202, 195, 57, 59, 56, 185, 477, 8, 52, 50, 175, 51, 47, 177, 45, 495, 167, 42, 161, 46, 40, 162, 169, 150, 38, 143, 455, 459, 140, 153, 1060, 34, 134, 37, 32
Offset: 1

Views

Author

Antti Karttunen, Jul 27 2014

Keywords

Links

Crossrefs

Cf. A008836, A026424, A028260, A055037, A055038, A066829.
Similar entanglement permutations: A245603-A245604, A235491, A236854, A243347, A244319.

Formula

a(1) = 1, and for n > 1, if A066829(n) = 1, then a(n) = A028260(1 + A244152(A055038(n))), otherwise a(n) = A026424(A244152(A055037(n)-1)).
For all n > 1, A008836(a(n)) = -1 * A008836(n), where A008836 is Liouville's lambda-function.

A245604 Permutation of natural numbers: a(1)=1, a(2n) = A026424(a(n)), a(2n+1) = A028260(1+a(n)).

Original entry on oeis.org

1, 2, 4, 3, 6, 7, 10, 5, 9, 11, 15, 12, 16, 18, 24, 8, 14, 17, 22, 19, 25, 28, 35, 20, 26, 29, 36, 31, 39, 44, 55, 13, 21, 27, 34, 30, 38, 42, 51, 32, 40, 45, 56, 50, 60, 67, 81, 37, 46, 47, 57, 52, 62, 68, 82, 59, 65, 72, 86, 79, 93, 105, 121, 23, 33, 41, 49, 48, 58, 66, 77, 53, 64, 71, 85, 76, 90, 99, 111, 61
Offset: 1

Views

Author

Antti Karttunen, Jul 27 2014

Keywords

Links

Crossrefs

Inverse: A245603.
Similar permutations: A143691, A244152, A244322, A245614, A245606, A245608.

Formula

a(1)=1, a(2n) = A026424(a(n)), a(2n+1) = A028260(1+a(n)).
As a composition of related permutations:
a(n) = A245614(A244322(n)).
For all n >= 1, A066829(a(n)) = 1 - A000035(n). [Permutation A143691 has the same property].
Equally, A066829(a(n)*a(n+1)) = 1 for all n.

A245613 Permutation of natural numbers: a(1) = 1; thereafter, if n is k-th number with an odd number of prime divisors (counted with multiplicity) [i.e., n = A026424(k)], a(n) = A244991(a(k)), otherwise, when n is k-th number > 1 with an even number of prime divisors [i.e., n = A028260(1+k)], a(n) = A244990(1+a(k)).

Original entry on oeis.org

1, 2, 4, 3, 8, 6, 5, 16, 9, 7, 11, 10, 32, 18, 13, 12, 17, 15, 22, 20, 35, 19, 66, 14, 24, 21, 34, 25, 23, 33, 31, 45, 63, 37, 27, 26, 41, 36, 29, 43, 69, 40, 134, 30, 47, 39, 44, 68, 71, 50, 38, 46, 67, 131, 28, 49, 42, 70, 64, 52, 92, 48, 127, 65, 61, 75, 55, 51, 89, 83, 73, 60
Offset: 1

Views

Author

Antti Karttunen, Jul 27 2014

Keywords

Comments

This shares with the permutation A122111 the property that each term of A028260 is mapped to a unique term of A244990 and each term of A026424 is mapped to a unique term of A244991.

Links

Crossrefs

Inverse: A245614.
Cf. A026424, A028260, A055037, A055038, A066829, A244990, A244991, A244992, A122111.
Similar entanglement permutations: A243287, A243343, A243345, A244321-A244322, A245603, A135141, A237427, A245605.

Formula

a(1) = 1, and for n > 1, if A066829(n) = 1, a(n) = A244991(a(A055038(n))), otherwise a(n) = A244990(1+a(A055037(n)-1)).
As a composition of related permutations:
a(n) = A244322(A245603(n)).
For all n >= 1, A066829(n) = A244992(a(n)).

A143692 Permutation of natural numbers: If n is k-th number with an odd number of prime divisors (counted with multiplicity) [i.e., n = A026424(k)], a(n) = 2*k, otherwise, when n is k-th number with an even number of prime divisors [i.e., n = A028260(k)], a(n) = (2*k)-1.

Original entry on oeis.org

1, 2, 4, 3, 6, 5, 8, 10, 7, 9, 12, 14, 16, 11, 13, 15, 18, 20, 22, 24, 17, 19, 26, 21, 23, 25, 28, 30, 32, 34, 36, 38, 27, 29, 31, 33, 40, 35, 37, 39, 42, 44, 46, 48, 50, 41, 52, 54, 43, 56, 45, 58, 60, 47, 49, 51, 53, 55, 62, 57, 64, 59, 66, 61, 63, 68, 70, 72, 65, 74, 76, 78
Offset: 1

Views

Author

Reinhard Zumkeller, Aug 29 2008

Keywords

Comments

a(a(n)) = A143694(n).

Links

Crossrefs

Inverse: A143691.
Cf. A000035, A055037, A055038, A066829, A143694, A245603.

Programs

  • Haskell
    import Data.List (elemIndex); import Data.Maybe (fromJust)
a243692 = (+ 1) . fromJust . (`elemIndex` a143691_list)
-- Reinhard Zumkeller, Aug 07 2014
  • Maple
    N:= 1000: # to get a(1) to a(N)
Odds,Evens:= selectremove(t -> numtheory:-bigomega(t)::odd,[$1..N]):
for k from 1 to nops(Odds) do A[Odds[k]]:= 2*k od:
for k from 1 to nops(Evens) do A[Evens[k]]:= 2*k-1 od:
seq(A[k],k=1..N); # Robert Israel, Jul 27 2014
  • Mathematica
    m = 100;
odds = Select[Range[m], OddQ[PrimeOmega[#]]&];
evens = Select[Range[m], EvenQ[PrimeOmega[#]]&];
Do[a[odds[[k]]] = 2k, {k, 1, Length[odds]}];
Do[a[evens[[k]]] = 2k-1, {k, 1, Length[evens]}];
Array[a, m] (* Jean-François Alcover, Mar 09 2019, from Maple *)

Formula

From Antti Karttunen, Jul 27 2014: (Start)
If A066829(n) = 1, then a(n) = 2 * A055038(n), otherwise a(n) = (2 * A055037(n)) - 1.
For all n >= 1, A000035(a(n)) = 1 - A066829(n). [Permutation A245603 has the same property].
(End)

Extensions

Name changed by Antti Karttunen, Jul 27 2014
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.