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,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

Cf. A030340.

Sequence in context: A203108 A230989 A321392 * A030383 A031231 A030562

Adjacent sequences: A030336 A030337 A030338 * A030340 A030341 A030342

Keyword

nonn

Author

Clark Kimberling

Status

approved