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 A239673 #14 May 19 2024 02:16:01 %S A239673 12,24,27,28,33,35,43,44,46,48,50,52,60,65,70,72,79,82,92,98 %N A239673 Record values in A239656 (the first differences of sphenic numbers). %F A239673 a(n) = A239656(A239674(n)). %o A239673 (Haskell) %o A239673 a239673 n = a239673_list !! (n-1) %o A239673 (a239673_list, a239674_list) = unzip $ (12, 1) : f 1 12 a239656_list where %o A239673 f i v (q:qs) | q > v = (q, i) : f (i + 1) q qs %o A239673 | otherwise = f (i + 1) v qs %o A239673 -- _Reinhard Zumkeller_, Mar 23 2014 %o A239673 (PARI) lista(kmax) = {my(k1 = 30, d, dm = 0); forcomposite(k2 = k1 + 1, kmax, if(factor(k2)[,2] == [1,1,1]~, d = k2 - k1; if(d > dm, dm = d; print1(d, ", ")); k1 = k2));} \\ _Amiram Eldar_, May 19 2024 %Y A239673 Cf. A007304, A005250, A215231, A239656, A239674. %K A239673 nonn,more %O A239673 1,1 %A A239673 _Reinhard Zumkeller_, Mar 23 2014 %E A239673 a(12)-a(20) from _Amiram Eldar_, May 19 2024