OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
PROG
(Haskell)
import Data.List (findIndices)
a077041 n = a077041_list !! (n-1)
a077041_list = map (a000040 . (+ 1)) $ findIndices (> 0) $
zipWith (\s p -> abs s - p) a077039_list a000040_list
-- Reinhard Zumkeller, Feb 28 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 21 2002
STATUS
approved