cp's OEIS Frontend

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.

A239673 Record values in A239656 (the first differences of sphenic numbers).

This page as a plain text file.
%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