This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A334468 #9 May 05 2020 01:19:04 %S A334468 4,6,8,12,15,16,18,24,27,30,32,36,40,45,48,54,60,63,64,70,72,75,80,81, %T A334468 90,96,100,105,108,120,125,128,135,140,144,150,160,162,168,175,180, %U A334468 189,192,200,210,216,224,225,234,240,243,250,256,270,280,288,294,300 %N A334468 List of distinct values of n + A217287(n). %C A334468 This sequence is a list of primitive least m > n whose distinct prime factors p are not a subset of those prime factors p found in the range n..(m - 1), i.e., the smallest A217287(n)-smooth number m > n. These numbers serve as "obstructions" that end or break the chains described at A217287. %C A334468 The number (a(n) - 1) can be found in at least one row of A217438. In other words, this sequence includes any number T(n, A217287(n)) + 1 where T(n, k) is the irregular triangle described at A217438. %H A334468 Michael De Vlieger, <a href="/A334468/b334468.txt">Table of n, a(n) for n = 1..10000</a> %H A334468 Michael De Vlieger, <a href="/A334468/a334468.png">Plot (x,y)</a> of x in rows 1 <= y <= 4096 of A217438 in gray, with the single pixel m (in this sequence) that exceeds the largest term of A217438 in red. %H A334468 Michael De Vlieger, <a href="/A334468/a334468.txt">Analysis of prime decompositions of terms in this sequence.</a> %F A334468 a(n) > n + 2 for all n. %F A334468 a(m) = m + 2 for m = 2^k - 2 and k > 1, since m is even and 2^k only has the distinct prime divisor 2. Therefore 2^k for k > 1 is in this sequence. %e A334468 Start with n = 1, the empty product. Incrementing n and storing the distinct prime factors each time, we encounter 2, which does not divide any previous number n. Therefore we proceed to n = 3, which is prime and its distinct prime divisor again does not divide any previous number. Finally, at 4, we have the distinct prime divisor 2, since 2 divides the product of the previous range {1, 2, 3}, we end the chain. Therefore 4 is the first term of this sequence. %e A334468 We list row n of A217438 below, starting with n aligned in columns: %e A334468 1 2 3 %e A334468 2 3 %e A334468 3 4 5 %e A334468 4 5 6 7 %e A334468 5 6 7 %e A334468 6 7 %e A334468 7 8 9 10 11 %e A334468 8 9 10 11 %e A334468 9 10 11 %e A334468 10 11 12 13 14 %e A334468 11 12 13 14 15 %e A334468 12 13 14 15 %e A334468 13 14 15 %e A334468 14 15 %e A334468 ... %e A334468 Adding 1 to the last numbers seen in all the rows and considering each value only once, we generate the sequence {4, 6, 8, 12, 15, 16, ...} %t A334468 Block[{nn = 2^9, r}, r = Array[If[# == 1, 0, Total[2^(PrimePi /@ FactorInteger[#][[All, 1]] - 1)]] &, nn + Ceiling@ Sqrt@ nn]; Union@ Array[Block[{k = # + 1, s = r[[#]]}, While[UnsameQ[s, Set[s, BitOr[s, r[[k]] ] ] ], k++]; k] &, nn] ] %Y A334468 Cf. A000918, A217287, A217438, A334469. %K A334468 nonn %O A334468 1,1 %A A334468 _Michael De Vlieger_, May 02 2020