login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 * A081171 A062778 A108202

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 17 16:57 EDT 2019. Contains 327136 sequences. (Running on oeis4.)