Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A089262
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A089262 2^[log2(n)] - 2^[log2(n*2/3)]. +0
1
0, 0, 1, 0, 2, 2, 0, 0, 4, 4, 4, 4, 0, 0, 0, 0, 8, 8, 8, 8, 8, 8, 8, 8, 0, 0, 0, 0, 0, 0, 0, 0, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32 (list; graph; listen)
OFFSET

0,5

FORMULA

a(2n) = 2a(n) + [n==1], a(2n+1) = 2a(n).

G.f. 1/(1-x) * sum(k>=0, 2^k*(t^2-t^3), t=x^2^k).

PROGRAM

(PARI) a(n)=if(n<1, 0, if(n%2==0, 2*a(n/2)+(n/2==1), 2*a((n-1)/2)))

(PARI) a(n)=2^floor(log(n)/log(2))-2^floor(log(n*2/3)/log(2))

CROSSREFS

Cf. A053644.

Sequence in context: A138270 A134315 A119332 this_sequence A069971 A167291 A063865

Adjacent sequences: A089259 A089260 A089261 this_sequence A089263 A089264 A089265

KEYWORD

nonn,easy

AUTHOR

Ralf Stephan (ralf(AT)ark.in-berlin.de), Oct 30 2003

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified December 15 00:47 EST 2009. Contains 170825 sequences.


AT&T Labs Research