0,4

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.

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

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).

(Haskell)

import Data.List (transpose)

a160588 n = a160588_list !! n

a160588_list = concat $ transpose [a053645_list, a000027_list]

-- Reinhard Zumkeller, Dec 12 2012

Sequence in context: A166514 A246024 A278529 * A081171 A062778 A108202

Adjacent sequences: A160585 A160586 A160587 * A160589 A160590 A160591

nonn,look

Reinhard Zumkeller, May 20 2009

Definition corrected by Reinhard Zumkeller, Dec 12 2012

approved