login
A030339
(# 1's)-(# 0's) in first n terms of A003137.
2
1, 1, 2, 1, 2, 3, 4, 4, 4, 3, 3, 4, 4, 4, 5, 4, 3, 4, 3, 4, 5, 4, 4, 5, 6, 5, 6, 7, 8, 9, 10, 10, 11, 11, 10, 11, 11, 12, 13, 13, 13, 13, 12, 11, 11, 10, 11, 11, 10, 10, 10, 11, 10, 10, 11, 12, 12, 13, 13, 13, 13, 12, 12, 12, 13, 13, 13, 13, 14, 13
OFFSET
1,3
LINKS
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
Cf. A030340.
Sequence in context: A203108 A230989 A321392 * A030383 A031231 A030562
KEYWORD
nonn
STATUS
approved