The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A335061

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

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.
(history; published version)

#18 by N. J. A. Sloane at Mon May 25 23:20:03 EDT 2020

STATUS

proposed

approved

#17 by Michael De Vlieger at Mon May 25 22:09:38 EDT 2020

STATUS

editing

proposed

#16 by Michael De Vlieger at Mon May 25 22:09:33 EDT 2020

LINKS

Michael De Vlieger, Large 50X25 <a href="/A335061/a335061_2.png">Diagram montage</a> showing 1250 XOR-triangles T(n,k)>0 for 3 <= n <= 24.

#15 by Michael De Vlieger at Mon May 25 22:09:12 EDT 2020

LINKS

Michael De Vlieger, Large 50X25 <a href="/A335061/a335061_2.png">Diagram montage</a> showing 1250 XOR-triangles T(n,k)>0 for 3 <= n <= 24.

#14 by Michael De Vlieger at Mon May 25 22:07:30 EDT 2020

LINKS

Michael De Vlieger, <a href="/A335061/b335061.txt">Table of n, a(n) for n = 1..1275</a> (rows 1 <= n <= 24, flattened)

STATUS

approved

editing

#13 by Michel Marcus at Mon May 25 03:01:32 EDT 2020

STATUS

reviewed

approved

#12 by Joerg Arndt at Mon May 25 01:43:36 EDT 2020

STATUS

proposed

reviewed

Discussion

Mon May 25

03:01

Michel Marcus: yes ok using another pc

#11 by Michael De Vlieger at Sun May 24 22:26:04 EDT 2020

STATUS

editing

proposed

Discussion

Mon May 25

01:01

Michel Marcus: I only see a black picture ?

01:43

Joerg Arndt: Picture is OK, and very nice.

#10 by Michael De Vlieger at Sun May 24 22:26:01 EDT 2020

LINKS

Michael De Vlieger, <a href="/A335061/a335061_1.png">Diagram montage</a> showing 486 XOR-triangles T(n,k)>0 for 3 <= n <= 20.

#9 by Michael De Vlieger at Sun May 24 22:25:34 EDT 2020

LINKS

Michael De Vlieger, <a href="/A335061/a335061_1.png">Diagram montage</a> showing 486 XOR-triangles T(n,k)>0 for 3 <= n <= 20.

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 *)

STATUS

approved

editing