A030339 (# 1's)-(# 0's) in first n terms of A003137.

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

Author

Clark Kimberling

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A003137, A030340.

Programs

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