A217438 Triangle with the chains described in A217287.

1, 2, 3, 2, 3, 3, 4, 5, 4, 5, 6, 7, 5, 6, 7, 6, 7, 7, 8, 9, 10, 11, 8, 9, 10, 11, 9, 10, 11, 10, 11, 12, 13, 14, 11, 12, 13, 14, 15, 12, 13, 14, 15, 13, 14, 15, 14, 15, 15, 16, 17, 16, 17, 18, 19, 20, 21, 22, 23, 17, 18, 19, 20, 21, 22, 23, 18, 19, 20, 21, 22, 23, 19, 20, 21, 22, 23, 20, 21, 22, 23, 21, 22, 23

Offset: 1

Author

Lior Manor, Oct 03 2012

Keywords

• nonn
• tabf

Comments

The length of row n is A217287(n).

Examples

			These are the first chains of the triangle:
1, 2, 3;
   2, 3;
      3, 4, 5;
         4, 5, 6, 7;
            5, 6, 7;
               6, 7;
                  7, 8, 9, 10, 11;
                     8, 9, 10, 11;
                        9, 10, 11;
                           10, 11, 12, 13, 14;
                               ...
		

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10441 (rows 1 <= n <= 1024, flattened)
• Michael De Vlieger, Plot (n, m) where m is a term in row n of this sequence, for rows 1 <= n <= 1024.

Crossrefs

Cf. A217287, A217288, A217289.

Programs

Mathematica

Block[{nn = 24, r}, r = Array[If[# == 1, 0, Total[2^(PrimePi /@ FactorInteger[#][[All, 1]] - 1)]] &, nn + Ceiling@ Sqrt@ nn]; Array[Block[{k = # + 1, s = r[[#]]}, While[UnsameQ[s, Set[s, BitOr[s, r[[k]] ] ] ], k++]; Range[#, k - 1]] &, nn] ] // Flatten (* Michael De Vlieger, May 02 2020 *)

Extensions

Row 1 prepended to match A217287 and edited by Michael De Vlieger, May 02 2020.