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 A361876 #16 May 20 2023 15:47:14 %S A361876 1,3,2,7,5,4,19,13,11,6,71,43,37,17,8,359,193,163,61,23,9,2423,1181, %T A361876 971,293,89,29,10,21589,9547,7669,1931,463,113,31,12,244481,99523, %U A361876 78101,16699,3301,619,131,41,14,3413801,1292831,994559,184463,30593,4583,743 %N A361876 Dispersion of the odd primes: a rectangular array read by downward antidiagonals. %C A361876 Every positive integer occurs exactly once. As a dispersion, the array is also an interspersion. Column 1 consists of 1, 2, and the composite positive integers. Row 2 is essentially A119533. %e A361876 Corner: %e A361876 1 3 7 19 71 359 ... %e A361876 2 5 13 43 193 1181 ... %e A361876 4 11 37 163 971 7669 ... %e A361876 6 17 61 293 1931 16699 ... %e A361876 8 23 89 463 3301 30593 ... %e A361876 9 29 113 619 4583 44041 ... %e A361876 10 31 131 743 5653 55711 ... %e A361876 12 41 181 1091 8753 90403 ... %e A361876 ... %t A361876 t = Map[NestWhileList[Prime[1 + #] &, #, # < 20000000 &, 1, Infinity, -1] &, %t A361876 Complement[Range[Last[#]], #] &[Prime[Range[2, 1000]]]]; %t A361876 Grid[Take[t, 15]] (* _Peter J. C. Moses_, Apr 06 2023 *) %Y A361876 Cf. A000040, A065091, A114537 (dispersion of the primes), A114577 (dispersion of the composite numbers). %K A361876 nonn,tabl %O A361876 1,2 %A A361876 _Clark Kimberling_, Apr 08 2023