OFFSET
1,1
PROG
(Haskell)
a239673 n = a239673_list !! (n-1)
(a239673_list, a239674_list) = unzip $ (12, 1) : f 1 12 a239656_list where
f i v (q:qs) | q > v = (q, i) : f (i + 1) q qs
| otherwise = f (i + 1) v qs
-- Reinhard Zumkeller, Mar 23 2014
(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
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Reinhard Zumkeller, Mar 23 2014
EXTENSIONS
a(12)-a(20) from Amiram Eldar, May 19 2024
STATUS
approved