OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
PROG
(PARI) j=[]; for(n=1, 200, if(omega(n+1)<2*omega(n), j=concat(j, n))); j
(Haskell)
import Data.List (findIndices)
a062974 n = a062974_list !! (n-1)
a062974_list = map (+ 1) $ findIndices (< 0) $
zipWith (-) (tail a001221_list) $ map (* 2) a001221_list
-- Reinhard Zumkeller, Jan 22 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 26 2001
STATUS
approved