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 A344008 #21 Jun 10 2021 16:11:52 %S A344008 1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,3,2,1,1,1,1,3,1,3,1,2,1, %T A344008 1,1,1,3,1,3,1,1,2,1,1,1,1,3,1,1,3,1,1,2,1,4,1,1,3,1,1,1,3,1,1,2,1,4, %U A344008 1,1,3,1,1,1,1,3,1,1,5,1,4,1,1,3,1,1,1,1,1,3,1 %N A344008 Triangle of numerators corresponding to A344007. %e A344008 The triangle underlying A344007 begins: %e A344008 1 %e A344008 1/2, 1/2 %e A344008 1/6, 1/3, 1/2 %e A344008 1/6, 1/4, 1/4, 1/3 %e A344008 2/15, 1/6, 1/5, 1/4, 1/4 %e A344008 1/12, 2/15, 1/6, 1/6, 1/5, 1/4 %e A344008 1/12, 3/28, 2/15, 1/7, 1/6, 1/6, 1/5 %e A344008 3/40, 1/12, 3/28, 1/8, 2/15, 1/7, 1/6, 1/6 %e A344008 1/18, 3/40, 1/12, 3/28, 1/9, 1/8, 2/15, 1/7, 1/6 %e A344008 1/18, 1/15, 3/40, 1/12, 1/10, 3/28, 1/9, 1/8, 2/15, 1/7 %e A344008 ... %e A344008 The numerators are: %e A344008 1 %e A344008 1, 1 %e A344008 1, 1, 1 %e A344008 1, 1, 1, 1 %e A344008 2, 1, 1, 1, 1 %e A344008 1, 2, 1, 1, 1, 1 %e A344008 1, 3, 2, 1, 1, 1, 1 %e A344008 3, 1, 3, 1, 2, 1, 1, 1 %e A344008 1, 3, 1, 3, 1, 1, 2, 1, 1 %e A344008 1, 1, 3, 1, 1, 3, 1, 1, 2, 1 %e A344008 ... %o A344008 (PARI) lista(nn) = {my(row, nrow, drow); for (n=1, nn, if (n==1, row = [1], k = vecmax(row); nrow = row; nrow[n-1] = 1/n; nrow = concat(nrow, k - 1/n); row = vecsort(nrow);); drow = apply(numerator, row); for (k=1, #drow, print1(drow[k], ", ")););} \\ _Michel Marcus_, Jun 09 2021 %Y A344008 Cf. A003506, A344007. %K A344008 nonn,tabl %O A344008 1,11 %A A344008 _Evan Lee_, Jun 09 2021 %E A344008 Corrected by _Hugo Pfoertner_ and _Michel Marcus_, Jun 09 2021