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 A376136 #23 Jun 21 2025 07:53:42
%S A376136 3229,3271,4759,6173,6803,6917,8389,8971,9439,10433,11743,12011,12853,
%T A376136 12983,13967,14107,14593,15683,16033,16141,18013,18097,19183,19333,
%U A376136 21283,21347,21529,22573,22817,23633,23719,25261,27701,27919,28229,29537,30593,31397,31699
%N A376136 Primes p_1 where products m of k = 5 consecutive primes p_1..p_k are such that only p_1 < m^(1/k).
%C A376136 Primes p_1 are such that the difference p_2-p_1 is larger than the sum of the differences p_(j+1)-p_j for j < k.
%C A376136 Does not intersect A022006 or A022007.
%H A376136 Michael De Vlieger, <a href="/A376136/b376136.txt">Table of n, a(n) for n = 1..10000</a>
%t A376136 k = 5; s = {1}~Join~Prime[Range[k - 1]]; Reap[Do[s = Append[Rest[s], Prime[i + k - 1]]; r = Surd[Times @@ s, k]; If[Count[s, _?(# < r &)] == 1, Sow[Prime[i]] ], {i, 32000}]][[-1, 1]]
%Y A376136 Cf. A022006, A022007, A376261.
%K A376136 nonn
%O A376136 1,1
%A A376136 _Michael De Vlieger_, Sep 17 2024