%I #8 May 05 2020 01:18:23
%S 1,3,4,7,10,11,15,16,22,25,26,31,34,36,41,46,52,56,57,63,64,70,71,76,
%T 79,86,94,96,99,106,116,121,127,131,134,142,146,156,160,162,169,176,
%U 183,190,196,204,214,218,221,222,236,241,246,255,266,274,286,288,296
%N Indices of zero or positive first differences in A217287.
%C Starting with i, we increment i to build a chain of consecutive numbers such that all distinct prime factors of ensuing numbers i + 1, i + 2, etc., divide at least one previous number in the chain. We store the chains in an irregular triangle T(i,j) described in A217438.
%C This sequence lists rows i such that the last term exceeds that of the previous row.
%H Michael De Vlieger, <a href="/A334469/b334469.txt">Table of n, a(n) for n = 1..10000</a>
%H Michael De Vlieger, <a href="/A334469/a334469.png">Plot (x,y)</a> of x in rows 1 <= y <= 4096 of A217438 in gray, accentuating rows m (in this sequence) in red where no term x in row (y - 1) exists. (Pixels attributed to A334468 appear in yellow).
%H Michael De Vlieger, <a href="/A334469/a334469.txt">Analysis of prime decompositions of terms in this sequence.</a>
%e We list numbers in row i of A217438 below, starting with i, aligned in columns:
%e 1 2 3
%e 2 3
%e 3 4 5
%e 4 5 6 7
%e 5 6 7
%e 6 7
%e 7 8 9 10 11
%e 8 9 10 11
%e 9 10 11
%e 10 11 12 13 14
%e 11 12 13 14 15
%e 12 13 14 15
%e 13 14 15
%e 14 15
%e 1 is in the sequence since it is the first row.
%e 2 is not in the sequence, since the last term (3) in row 2 of A217438 is equal to that of the previous row.
%e 3 is in the sequence since its last term (5) exceeds that of the previous row (3).
%e Further, we observe the terms in row i breaking through resistance in the previous row at i = {1, 3, 4, 7, 10, 11, ...}
%t Block[{nn = 2^9, r}, r = Array[If[# == 1, 0, Total[2^(PrimePi /@ FactorInteger[#][[All, 1]] - 1)]] &, nn]; Position[Prepend[#, 1], _?(# > 0 &)][[All, 1]] &@ Differences@ Array[Block[{k = # + 1, s = r[[#]]}, While[UnsameQ[s, Set[s, BitOr[s, r[[k]] ] ] ], k++]; k] &, nn - Ceiling@ Sqrt@ nn] ]
%Y Cf. A217287, A217438, A334468.
%K nonn
%O 1,2
%A _Michael De Vlieger_, May 02 2020