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.

A335061 Irregular table read by rows; n-th row corresponds to numbers in the range 0..2^n-1 whose binary expansion (possibly left-padded with 0's up to n binary digits) generates rotationally symmetric XOR-triangles.

Original entry on oeis.org

0, 1, 0, 0, 2, 0, 6, 11, 13, 0, 14, 0, 30, 39, 57, 0, 8, 54, 62, 83, 91, 101, 109, 0, 126, 151, 233, 0, 40, 92, 116, 138, 162, 214, 254, 0, 72, 140, 196, 314, 370, 438, 510, 543, 599, 659, 731, 805, 877, 937, 993, 0, 168, 854, 1022, 1379, 1483, 1589, 1693
Offset: 1

Views

Author

Rémy Sigrist, May 21 2020

Keywords

Comments

The n-th row has A060547(n) terms.
Every positive term of A334556, say m, appears in row A070939(m).

Examples

			The first rows are:
    0, 1
    0
    0, 2
    0, 6, 11, 13
    0, 14
    0, 30, 39, 57
    0, 8, 54, 62, 83, 91, 101, 109
The XOR-triangles corresponding to the 8 terms of row 7 are (with dots instead of 0's for clarity):
   T(7,1) = 0:        T(7,2) = 8:        T(7,3) = 54:       T(7,4) = 62,
   . . . . . . .      . . . 1 . . .      . 1 1 . 1 1 .      . 1 1 1 1 1 .
    . . . . . .        . . 1 1 . .        1 . 1 1 . 1        1 . . . . 1
     . . . . .          . 1 . 1 .          1 1 . 1 1          1 . . . 1
      . . . .            1 1 1 1            . 1 1 .            1 . . 1
       . . .              . . .              1 . 1              1 . 1
        . .                . .                1 1                1 1
         .                  .                  .                  .
   T(7,5) = 83:       T(7,6) = 91:       T(7,7) = 101:      T(7,8) = 109:
   1 . 1 . . 1 1      1 . 1 1 . 1 1      1 1 . . 1 . 1      1 1 . 1 1 . 1
    1 1 1 . 1 .        1 1 . 1 1 .        . 1 . 1 1 1        . 1 1 . 1 1
     . . 1 1 1          . 1 1 . 1          1 1 1 . .          1 . 1 1 .
      . 1 . .            1 . 1 1            . . 1 .            1 1 . 1
       1 1 .              1 1 .              . 1 1              . 1 1
        . 1                . 1                1 .                1 .
         1                  1                  1                  1
		

Crossrefs

Cf. A060547 (row length), A070939, A334556.

Programs

  • Mathematica
    Table[Select[Range[0, 2^n - 1], Block[{k = #, w}, (Reverse /@ Transpose[#] /. -1 -> Nothing) == w &@ MapIndexed[PadRight[#, n, -1] &, Set[w, NestList[Map[BitXor @@ # &, Partition[#, 2, 1]] &, PadLeft[IntegerDigits[k, 2], n], n - 1]]]] &], {n, 12}] // Flatten (* Michael De Vlieger, May 24 2020 *)
  • PARI
    See Links section.