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 A382133 #21 Mar 31 2025 21:25:27 %S A382133 462,570,714,858,870,1190,1230,1254,1290,1302,1482,1590,1722,1785, %T A382133 1806,1995,2046,2130,2170,2210,2470,2490,2870,3030,3045,3255,3390, %U A382133 3410,3705,3774,3795,3885,3930,4002,4218,4242,4278,4422,4510,4515,4641,4785,4935,5010,5110 %N A382133 Products of 4 distinct primes that are the average of two consecutive primes. %e A382133 462 is a term because 462=2*3*7*11 is the product of four distinct primes and 462 = (461+463)/2. %e A382133 714 is a term because 714=2*3*7*17 is the product of four distinct primes and 714 = (709+719)/2. %e A382133 210 is not a term because although 210=2*3*5*7 is the product of four distinct primes 210 != (199 + 211)/2. %t A382133 Select[Range[5200], 2*# == Plus @@ NextPrime[#, {-1, 1}] && FactorInteger[#][[;; , 2]] == {1, 1, 1, 1} &] (* _Amiram Eldar_, Mar 17 2025 *) %Y A382133 Intersection of A024675 and A046386. %Y A382133 Cf. A078443, A130178. %K A382133 nonn %O A382133 1,1 %A A382133 _Massimo Kofler_, Mar 17 2025