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 A364778 #10 Oct 08 2023 09:45:46 %S A364778 121,187,289,319,407,451,493,629,649,697,737,781,841,869,1003,1067, %T A364778 1073,1111,1139,1177,1189,1207,1343,1369,1397,1507,1517,1639,1649, %U A364778 1681,1711,1717,1793,1819,1943,1969,2059,2101,2159,2167,2183,2291,2329,2419,2453,2479,2497,2533,2627,2629,2747 %N A364778 Products of two distinct strong primes. %C A364778 Strong primes: prime(n) > (prime(n-1) + prime(n+1))/2. %e A364778 121 = 11^2 and 11 > (7+13)/2. %e A364778 187 = 11*17 and 11 > (7+13)/2, 17 > (13+19)/2. %e A364778 493 = 17*29 and 17 > (13+19)/2, 29 > (23+31)/2. %t A364778 strongQ[p_] := p > 2 && 2*p > Total[NextPrime[p, {-1, 1}]]; Select[Range[1, 3000, 2], MemberQ[{{1, 1}, {2}}, (f = FactorInteger[#])[[;; , 2]]] && AllTrue[f[[;; , 1]], strongQ] &] (* _Amiram Eldar_, Aug 07 2023 *) %Y A364778 Cf. A001358, A051634, A363167, A363782. %K A364778 nonn %O A364778 1,1 %A A364778 _Massimo Kofler_, Aug 07 2023 %E A364778 Definition clarified by _N. J. A. Sloane_, Oct 08 2023