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

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

Formula

a(n)=f(n,2) with f(n,m) = if n<m then (n + (n mod 2)*(m-1))/2 else f(n-m,2*m).

Prog

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

Crossrefs

Sequence in context: A166514 A246024 A278529 * A081171 A334594 A359336

Adjacent sequences: A160585 A160586 A160587 * A160589 A160590 A160591

Keyword

nonn,look

Author

Reinhard Zumkeller, May 20 2009

Extensions

Definition corrected by Reinhard Zumkeller, Dec 12 2012

Status

approved