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 A362035 #26 Apr 09 2023 03:02:39 %S A362035 2,17,29,43,59,61,83,103,107,137,167,173,211,251,257,307,359,379,419, %T A362035 479,499,541,613,631,673,691,761,769,853,887,937,991,1031,1129,1151, %U A362035 1231,1361,1399,1459,1471,1493,1583,1697,1823,1831,1973,2111,2179,2243,2251,2393 %N A362035 Numbers that occur three or more times in A362034. %C A362035 All terms are prime because all terms in A362034 are. %e A362035 2 is a term because in A362034, 2 occurs at positions 1, 2, and 3. %e A362035 17 is a term because in A362034, 17 occurs at positions 13, 23, and 27. %t A362035 nn = 300; q = Prime[nn]; c[_] = 0; p[_] = False; T[n_, 0] := T[n, n] = 2; T[n_, k_] := T[n, k] = NextPrime[T[n - 1, k - 1] + T[n - 1, k] - 1]; TakeWhile[Sort@ Reap[Do[(c[#]++; If[And[c[#] >= 3, ! p[#]], Sow[#]; p[#] = True]) &@ T[n, k], {n, 0, nn}, {k, 0, n}] ][[-1, -1]], # <= q &] (* _Michael De Vlieger_, Apr 06 2023 *) %Y A362035 Cf. A000040, A362034. %K A362035 nonn %O A362035 1,1 %A A362035 _Jack Braxton_, Apr 05 2023