A030340 a(n)=(# 1's)-(# 2's) in first n terms of A003137.
1, 0, 1, 1, 2, 3, 4, 3, 2, 2, 1, 2, 1, 0, 1, 1, 1, 2, 2, 3, 4, 4, 3, 4, 5, 5, 6, 7, 8, 9, 10, 9, 10, 9, 9, 10, 9, 10, 11, 10, 9, 8, 8, 8, 7, 7, 8, 7, 7, 6, 5, 6, 6, 5, 6, 7, 6, 7, 6, 5, 4, 4, 3, 2, 3, 2, 1, 0, 1, 1, 1, 1, 2, 2, 2, 3, 4, 4, 4, 3, 4, 4, 5, 5
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A030339.
Programs
-
Haskell
a030340 n = a030340_list !! (n-1) a030340_list = scanl1 (\u v -> u + fromEnum (v == 1) - fromEnum (v == 2)) a003137_list -- Reinhard Zumkeller, Feb 21 2013
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), Sep 25 2000
Some data corrected by Reinhard Zumkeller, Feb 21 2013
Comments