Thanks to everyone who made a donation during our annual appeal! To see the list of donors, or make a donation, see the OEIS Foundation home page.
1,4
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
(Haskell)
import Data.List (elemIndex)
import Data.Maybe (catMaybes)
a195610 n = a195610_list !! (n-1)
a195610_list = catMaybes $ map k [1..] where
k x = elemIndex 0 $ map (`mod` x) $ take (fromInteger x) a000051_list
Cf. A000051, A195470.
Sequence in context: A194872 A194900 A194051 * A082654 A072636 A191741
Adjacent sequences: A195607 A195608 A195609 * A195611 A195612 A195613
nonn
Reinhard Zumkeller, Sep 21 2011
approved