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 A375975 #4 Sep 16 2024 12:53:06 %S A375975 257557397,490995677,1314423991,2445956099,8756100193,14406533983, %T A375975 34491476237,168268429891,453178561051,526847565721,588771800473, %U A375975 673542175381,874245022517,1129796633837,1267153039517,1385645583389,1742522070781,2638237130051,3021997659211,3389753359877 %N A375975 Products m of k = 4 consecutive primes p_1..p_k, where only p_1 < m^(1/k). %C A375975 In other words, products m of k = 4 consecutive primes p_1..p_k, where floor(log_p_1 m) >= k but floor(log_p_j m) = k-1, j > 1. %C A375975 a(n) = m is such that floor(log_p_1 m) = k but floor(log_p_j m) = k-1 for j > 1. %C A375975 Does not intersect A138637, since for m in A138637, both p_1 and p_2 are smaller than m^(1/k). %H A375975 Michael De Vlieger, <a href="/A375975/b375975.txt">Table of n, a(n) for n = 1..65536</a> %t A375975 k = 4; 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[Times @@ s] ], {i, 120}] ][[-1, 1]] %Y A375975 Cf. A138637, A375974. %K A375975 nonn %O A375975 1,1 %A A375975 _Michael De Vlieger_, Sep 12 2024