cp's OEIS Frontend

A217438 Triangle with the chains described in A217287.

%I A217438 #11 May 02 2020 23:05:17
%S A217438 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,
%T A217438 11,12,13,14,11,12,13,14,15,12,13,14,15,13,14,15,14,15,15,16,17,16,17,
%U A217438 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
%N A217438 Triangle with the chains described in A217287.
%C A217438 The length of row n is A217287(n).
%H A217438 Michael De Vlieger, <a href="/A217438/b217438.txt">Table of n, a(n) for n = 1..10441</a> (rows 1 <= n <= 1024, flattened)
%H A217438 Michael De Vlieger, <a href="/A217438/a217438.png">Plot (n, m)</a> where m is a term in row n of this sequence, for rows 1 <= n <= 1024.
%e A217438 These are the first chains of the triangle:
%e A217438 1, 2, 3;
%e A217438    2, 3;
%e A217438       3, 4, 5;
%e A217438          4, 5, 6, 7;
%e A217438             5, 6, 7;
%e A217438                6, 7;
%e A217438                   7, 8, 9, 10, 11;
%e A217438                      8, 9, 10, 11;
%e A217438                         9, 10, 11;
%e A217438                            10, 11, 12, 13, 14;
%e A217438                                ...
%t A217438 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 *)
%Y A217438 Cf. A217287, A217288, A217289.
%K A217438 nonn,tabf
%O A217438 1,2
%A A217438 _Lior Manor_, Oct 03 2012
%E A217438 Row 1 prepended to match A217287 and edited by _Michael De Vlieger_, May 02 2020.