OFFSET
1,3
COMMENTS
For many values of n, a(n) = A110352(n).
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
PROG
(Haskell)
import Data.List (findIndex)
import Data.Maybe (fromJust)
a110353 n = (+ 1) $ fromJust $
findIndex ((== 0) . (`mod` t)) $ dropWhile (<= t) a000217_list
where t = a000217 n
-- Reinhard Zumkeller, Mar 23 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 21 2005
EXTENSIONS
More terms from Joshua Zucker, May 08 2006
STATUS
approved