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,2

Comments

The length of row n is A217287(n).

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.

Example

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;
                               ...

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

Crossrefs

Cf. A217287, A217288, A217289.

Sequence in context: A205146 A031248 A030582 * A036762 A032154 A300651

Adjacent sequences: A217435 A217436 A217437 * A217439 A217440 A217441

Keyword

nonn,tabf

Author

Lior Manor, Oct 03 2012

Extensions

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

Status

approved