Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A072649
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A072649 n occurs A000045(n) times. +0
17
1, 2, 3, 3, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10 (list; graph; listen)
OFFSET

1,2

COMMENT

Number of digits in Zeckendorf-binary representation of n. E.g. the Zeckendorf representation of 12 is 8+3+1, which in binary notation is 10101, which consists of 5 digits. - Clark Kimberling (ck6(AT)evansville.edu), Jun 05 2004

First position where value n occurs is A000045(n+1), i.e. a(A000045(n)) = n-1, for n >= 2 and a(A000045(n)-1) = n-2, for n >= 3.

This is the number of distinct Fibonacci numbers greater than 0 which are less than or equal to n. - Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 10 2006

The smallest non-decreasing sequence a(n) such that a(Fibonacci(n-1)) = n. - Tanya Khovanova (tanyakh(AT)yahoo.com), Jun 20 2007

FORMULA

G.f.: (Sum_{n>1} x^fibonacci(n))/(1-x). - Michael Somos, Apr 25, 2003

a(n)=floor(log_phi((sqr(5)*n+sqr(5*n^2+4))/2))-1, n>=1, where phi is the golden ratio. Alternatively, a(n)=floor(arsinh(sqr(5)*n/2)/ln(phi))-1. Also a(n)=A108852(n)-2. - Hieronymus Fischer (Hieronymus.Fischer(AT)gmx.de), May 02 2007

a(n) = -1 + floor[ log_phi( (n+0.2)*sqrt(5) ) ], where log_phi(x) is the logarithm to the base (1+sqrt(5))/2. - Ralf Stephan, May 14 2007

EXAMPLE

1, 1, then F(2) 2's, then F(3) 3's, then F(4) 4's, ..., then F(k) k's, ...

MATHEMATICA

Table[Table[n, {Fibonacci[n]}], {n, 10}] // Flatten (* Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 14 2007 *)

PROGRAM

(PARI) a(n) = -1+floor(log(((n+0.2)*sqrt(5)))/log((1+sqrt(5))/2))

(PARI) a(n)=local(m); if(n<1, 0, m=0; until(fibonacci(m)>n, m++); m-2)

(MIT Scheme) (define (A072649 n) (let ((b (A072648 n))) (+ -1 b (floor->exact (/ n (A000045 (1+ b)))))))

CROSSREFS

Cf. A000045, A095791, A095792.

Used to construct A003714. Cf. also A002024, A072643, A072648, A072650.

Cf. A131234.

Sequence in context: A029118 A129382 A163515 this_sequence A105195 A039836 A083398

Adjacent sequences: A072646 A072647 A072648 this_sequence A072650 A072651 A072652

KEYWORD

nonn

AUTHOR

Antti Karttunen Jun 02 2002

EXTENSIONS

Typo fixed by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Oct 28 2009

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 November 29 12:46 EST 2009. Contains 167659 sequences.


AT&T Labs Research