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 A283235 #21 Nov 01 2021 12:17:07 %S A283235 1,2,2,5,4,3,9,6,4,4,17,12,9,7,5,23,16,11,9,6,6,34,24,16,13,9,8,7,41, %T A283235 30,20,15,11,9,8,8,56,40,27,21,15,12,11,9,9,81,59,39,30,21,18,15,14, %U A283235 11,10 %N A283235 Triangle read by rows: n-th row gives the numbers of primes p such that p*prime(k) <= prime(n)^2, k=1..n. %C A283235 Sequence is related to A128301 = indices of squares (of primes) in the semiprimes. %e A283235 Triangle begins: %e A283235 1; %e A283235 2, 2; %e A283235 5, 4, 3; %e A283235 9, 6, 4, 4; %e A283235 17, 12, 9, 7, 5; %e A283235 23, 16, 11, 9, 6, 6; %e A283235 34, 24, 16, 13, 9, 8, 7; %e A283235 41, 30, 20, 15, 11, 9, 8, 8; %e A283235 56, 40, 27, 21, 15, 12, 11, 9, 9; %e A283235 81, 59, 39, 30, 21, 18, 15, 14, 11, 10; %e A283235 ... %t A283235 Table[PrimePi[Prime[n]^2/Prime[k]],{n,10},{k,n}]//Flatten %o A283235 (PARI) row(n) = my(p=prime(n)); vector(n, k, primepi(p^2/prime(k))); \\ _Michel Marcus_, Nov 01 2021 %Y A283235 Cf. A128301, A348836 (1st column). %K A283235 nonn,tabl %O A283235 1,2 %A A283235 _Zak Seidov_, Mar 03 2017