A160588 Interleaving of A053645 and A000027.

0, 1, 0, 2, 1, 3, 0, 4, 1, 5, 2, 6, 3, 7, 0, 8, 1, 9, 2, 10, 3, 11, 4, 12, 5, 13, 6, 14, 7, 15, 0, 16, 1, 17, 2, 18, 3, 19, 4, 20, 5, 21, 6, 22, 7, 23, 8, 24, 9, 25, 10, 26, 11, 27, 12, 28, 13, 29, 14, 30, 15, 31, 0, 32, 1, 33, 2, 34, 3, 35, 4, 36, 5, 37, 6, 38, 7, 39, 8, 40, 9, 41, 10, 42, 11

Offset: 0

Author

Reinhard Zumkeller, May 20 2009

Keywords

• nonn
• look

Comments

a(2*n) = A053645(n+1); a(2*n+1) = A001477(n) = n;

for n>1: a(A028399(n)) = A000225(n-2), a(A000918(n)) = 0.

Links

• R. Zumkeller, Table of n, a(n) for n = 0..1000

Programs

Haskell

import Data.List (transpose)
a160588 n = a160588_list !! n
a160588_list = concat $ transpose [a053645_list, a000027_list]
-- Reinhard Zumkeller, Dec 12 2012

Formula

a(n)=f(n,2) with f(n,m) = if n

Extensions

Definition corrected by Reinhard Zumkeller, Dec 12 2012

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.