OFFSET
1,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
PROG
(Haskell)
a030339 n = a030339_list !! (n-1)
a030339_list = scanl1
(\u v -> u + fromEnum (v == 1) - fromEnum (v == 0)) a003137_list
-- Reinhard Zumkeller, Feb 21 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved