A197911 Representable by A001045 (Jacobsthal sequence). Complement of A003158.
0, 1, 3, 4, 5, 6, 8, 9, 11, 12, 14, 15, 16, 17, 19, 20, 21, 22, 24, 25, 26, 27, 29, 30, 32, 33, 35, 36, 37, 38, 40, 41, 43, 44, 46, 47, 48, 49, 51, 52, 54, 55, 57, 58, 59, 60, 62, 63, 64, 65, 67, 68, 69, 70, 72, 73, 75, 76, 78, 79, 80, 81, 83, 84, 85, 86, 88
Offset: 0
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
- L. Carlitz, R. Scoville and V. E. Hoggatt, Jr., Representations for a special sequence, Fib. Quart., 10 (1972), 499-518, 550 (see page 499).
Programs
-
Haskell
a197911 n = a197911_list !! n a197911_list = scanl (+) 0 a056832_list -- Reinhard Zumkeller, Jul 29 2014
-
Python
def A197911(n): return n+sum((~(i+1)&i).bit_length()&1 for i in range(n)) # Chai Wah Wu, Jan 09 2023
Comments