reviewed

approved

proposed

reviewed

editing

proposed

Michel Marcus: ok thanks

0, 1, 3, 2, 4, 6, 5, 7, 13, 15, 8, 12, 14, 16, 26, 9, 11, 17, 19, 25, 27, 10, 18, 20, 22, 24, 28, 30, 21, 23, 29, 31, 53, 55, 61, 63, 32, 50, 52, 54, 56, 60, 62, 64, 106, 33, 35, 49, 51, 57, 59, 65, 67, 105, 107, 34, 36, 38, 48, 58, 66, 68, 70, 104, 108, 110, 37, 39, 45, 47, 69, 71, 77, 79, 101, 103, 109, 111

proposed

editing

Kevin Ryde: Yep, copied out of the b-file (all of which I agree with by some alternate paperfolding curve code :).

editing

proposed

Michel Marcus: can you add 9 more terms to have complete last row of triangle

With[{n = 216}, TakeWhile[#, Length@ #2 == #1 & @@ # &][[All, -1]] &@ Transpose@ {Keys@ #, Lookup[#, Keys@ #]} &[PositionIndex@ Accumulate@ Array[1 - 2 Mod[Length[FixedPointList[BitAnd[#, # - 1] &, BitAnd[#, Quotient[#, 2]]]], 2] &, (2^] &, n)^4^2, 0] - 1]] // Flatten (* Michael De Vlieger, Jan 25 2020 *)

proposed

editing

editing

proposed

With[{n = 2}, TakeWhile[#, Length@ #2 == #1 & @@ # &][[All, -1]] &@ Transpose@ {Keys@ #, Lookup[#, Keys@ #]} &[PositionIndex@ Accumulate@@ Array[1 - 2 Mod[Length[FixedPointList[BitAnd[#, # - 1] &, BitAnd[#, Quotient[#, 2]]]], 2] &, (2^n)^4, 0] - 1]] // Flatten (* _Michael De Vlieger_, Jan 25 2020 *)

Array[1 - 2 Mod[Length[FixedPointList[BitAnd[#, # - 1] &, BitAnd[#, Quotient[#, 2]]]], 2] &, (2^n)^4, 0] - 1]] // Flatten (* Michael De Vlieger, Jan 25 2020 *)

With[{n = 2}, TakeWhile[#, Length@ #2 == #1 & @@ # &][[All, -1]] &@ Transpose@ {Keys@ #, Lookup[#, Keys@ #]} &[PositionIndex@ Accumulate@

Array[1 - 2 Mod[Length[FixedPointList[BitAnd[#, # - 1] &, BitAnd[#, Quotient[#, 2]]]], 2] &, (2^n)^4, 0] - 1]] // Flatten (* Michael De Vlieger, Jan 25 2020 *)

proposed

editing

editing

proposed