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-7 of 7 results.

A084462 Inverse permutation to A084461.

Original entry on oeis.org

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

Views

Author

Antti Karttunen, Jun 02 2003

Keywords

Crossrefs

Cf. A084461.

A084455 Permutation of Z, obtained by reflecting the juggling sequence A084452 from positive to negative numbers (with zero thrown at beat 0), folded to N with functions N2Z and Z2N.

Original entry on oeis.org

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

Views

Author

Antti Karttunen, Jun 02 2003

Keywords

Comments

This permutation consists of three infinite cycles + infinite number of fixed points.

Crossrefs

Programs

  • Maple
    [seq(Z2N(A084455_Z2Z(N2Z(n))),n=1..45)];
    N2Z := n -> ((-1)^n)*floor(n/2);
    Z2N := z -> 2*abs(z)+`if`((z < 1),1,0);
    A084455_Z2Z := z -> z+`if`((z > 0), A084452(z),`if`((z >= -3),2*(-z), A084452(A084454((-z)-3))));

A084491 Permutation of Z, obtained by reflecting the juggling sequence A084501 from positive to negative numbers (with zero thrown at beat 0), folded to N with functions N2Z and Z2N.

Original entry on oeis.org

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

Views

Author

Antti Karttunen, Jun 02 2003

Keywords

Comments

This permutation consists of three infinite cycles + infinite number of fixed points.

Crossrefs

Programs

  • Maple
    [seq(Z2N(A084491_Z2Z(N2Z(n))),n=1..45)];
    N2Z := n -> ((-1)^n)*floor(n/2);
    Z2N := z -> 2*abs(z)+`if`((z < 1),1,0);
    A084491_Z2Z := z -> z+`if`((z > 0), A084501(z),`if`((z >= -3),2*(-z), A084501(A084490((-z)-3))));

A084495 Permutation of Z, obtained by reflecting the juggling sequence A084511 from positive to negative numbers (with zero thrown at beat 0), folded to N with functions N2Z and Z2N.

Original entry on oeis.org

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

Views

Author

Antti Karttunen, Jun 02 2003

Keywords

Comments

This permutation consists of three infinite cycles + infinite number of fixed points.

Crossrefs

Programs

  • Maple
    [seq(Z2N(A084495_Z2Z(N2Z(n))),n=1..45)];
    N2Z := n -> ((-1)^n)*floor(n/2);
    Z2N := z -> 2*abs(z)+`if`((z < 1),1,0);
    A084495_Z2Z := z -> z+`if`((z > 0), A084511(z),`if`((z >= -3),2*(-z), A084511(A084494((-z)-3))));

A084499 Permutation of Z, obtained by reflecting the juggling sequence A084521 from positive to negative numbers (with zero thrown at beat 0), folded to N with functions N2Z and Z2N.

Original entry on oeis.org

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

Views

Author

Antti Karttunen, Jun 02 2003

Keywords

Comments

This permutation consists of three infinite cycles + infinite number of fixed points.

Crossrefs

Programs

  • Maple
    [seq(Z2N(A084499_Z2Z(N2Z(n))),n=1..45)];
    N2Z := n -> ((-1)^n)*floor(n/2);
    Z2N := z -> 2*abs(z)+`if`((z < 1),1,0);
    A084499_Z2Z := z -> z+`if`((z > 0), A084511(z),`if`((z >= -3),2*(-z), A084521(A084498((-z)-3))));

A084459 a(n) = n + A084458(n) - 3.

Original entry on oeis.org

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

Views

Author

Antti Karttunen, Jun 02 2003

Keywords

Crossrefs

A084460 Inverse permutation to A084459.

Original entry on oeis.org

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

Views

Author

Antti Karttunen, Jun 02 2003

Keywords

Crossrefs

Used to compute A084461.
Showing 1-7 of 7 results.