cp's OEIS Frontend

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.

A362035 Numbers that occur three or more times in A362034.

This page as a plain text file.
%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