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

A064706 Square of permutation defined by A003188.

Original entry on oeis.org

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

Views

Author

N. J. A. Sloane, Oct 13 2001

Keywords

Comments

Inverse of sequence A064707 considered as a permutation of the nonnegative integers.
Not the same as A100282: a(n) = A100282(n) = A100280(A100280(n)) only for n < 64. - Reinhard Zumkeller, Nov 11 2004

Links

Crossrefs

Cf. A064707 (inverse), A165211 (mod 2).
Cf. A003188, A000695, A059905, A059906.
Cf. also A054238, A163233, A302846.

Programs

  • MATLAB
    A = 1; for i = 1:7 B = A(end:-1:1); A = [A (B + length(A))]; end A(A) - 1
  • Mathematica
    Array[BitXor[#, Floor[#/4]] &, 72, 0] (* Michael De Vlieger, Apr 14 2018 *)
  • PARI
    a(n)=bitxor(n,n\4)
  • PARI
    { for (n=0, 1000, write("b064706.txt", n, " ", bitxor(n, n\4)) ) } \\ Harry J. Smith, Sep 22 2009
  • Python
    def A064706(n): return n^ n>>2 # Chai Wah Wu, Jun 29 2022
  • R
    maxn <- 63 # by choice
b <- c(1,0,0)
for(n in 4:maxn) b[n] <- b[n-1] - b[n-2] + b[n-3]
# c(1,b) is A133872
a <- 1
for(n in 1:maxn) {
a[2*n  ] <- 2*a[n] + 1 - b[n]
a[2*n+1] <- 2*a[n] +     b[n]
}
(a <- c(0,a))
# Yosu Yurramendi, Oct 25 2020

Formula

a(n) = A003188(A003188(n)).
a(n) = n XOR floor(n/4), where XOR is binary exclusive OR. - Paul D. Hanna, Oct 25 2004
a(n) = A233280(A180201(n)), n > 0. - Yosu Yurramendi, Apr 05 2017
a(n) = A000695(A003188(A059905(n))) + 2*A000695(A003188(A059906(n))). - Antti Karttunen, Apr 14 2018

Extensions

More terms from David Wasserman, Aug 02 2002

A100280 Inverse permutation to A099896.

Original entry on oeis.org

0, 1, 3, 2, 6, 7, 5, 4, 13, 12, 14, 15, 11, 10, 8, 9, 27, 26, 24, 25, 29, 28, 30, 31, 22, 23, 21, 20, 16, 17, 19, 18, 54, 55, 53, 52, 48, 49, 51, 50, 59, 58, 56, 57, 61, 60, 62, 63, 45, 44, 46, 47, 43, 42, 40, 41, 32, 33, 35, 34, 38, 39, 37, 36, 109, 108, 110, 111, 107, 106, 104
Offset: 0

Views

Author

Reinhard Zumkeller, Nov 11 2004

Keywords

Comments

A100282(n) = a(a(n)).

Links

Crossrefs

Cf. A006068, A003188.

A100281 a(n) = A099896(A099896(n)).

Original entry on oeis.org

0, 1, 2, 3, 5, 4, 7, 6, 10, 11, 8, 9, 15, 14, 13, 12, 21, 20, 23, 22, 16, 17, 18, 19, 31, 30, 29, 28, 26, 27, 24, 25, 42, 43, 40, 41, 47, 46, 45, 44, 32, 33, 34, 35, 37, 36, 39, 38, 63, 62, 61, 60, 58, 59, 56, 57, 53, 52, 55, 54, 48, 49, 50, 51, 84, 85, 86, 87, 81, 80, 83, 82, 94
Offset: 0

Views

Author

Reinhard Zumkeller, Nov 11 2004

Keywords

Comments

Permutation of the natural numbers with inverse A100282;
A064707(n) = a(n) for n<64.

Links

Crossrefs

Cf. A099896, A064707, A100282.

Programs

Formula

a(n) = n XOR floor(n/4) XOR floor(n/16). - Ivan Neretin, Sep 06 2017
Showing 1-3 of 3 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.