A160588 - OEIS

More Web Proxy on the site http://driver.im/

The OEIS is supported by the many generous donors to the OEIS Foundation.

A160588

Interleaving of A053645 and A000027.

2

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

(list; graph; refs; listen; history; text; internal format)

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 * A195084 A081171 A334594

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