Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A076984
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A076984 Number of Fibonacci numbers that are divisors of the n-th Fibonacci number. +0
4
1, 1, 2, 2, 2, 3, 2, 3, 3, 3, 2, 5, 2, 3, 4, 4, 2, 5, 2, 5, 4, 3, 2, 7, 3, 3, 4, 5, 2, 7, 2, 5, 4, 3, 4, 8, 2, 3, 4, 7, 2, 7, 2, 5, 6, 3, 2, 9, 3, 5, 4, 5, 2, 7, 4, 7, 4, 3, 2, 11, 2, 3, 6, 6, 4, 7, 2, 5, 4, 7, 2, 11, 2, 3, 6, 5, 4, 7, 2, 9, 5, 3, 2, 11, 4, 3, 4, 7, 2, 11, 4, 5, 4, 3, 4, 11, 2, 5, 6, 8, 2, 7, 2 (list; graph; listen)
OFFSET

1,3

COMMENT

a(A001605(n)) = 2; a(A105802(n)) = n.

It is well known that if k is a divisor of n then F(k) divides F(n). Hence if n has d divisors, one expects that a(n)=d. However because F(1)=F(2)=1, there is one fewer Fibonacci divisor when n is even. So for even n, a(n)=d-1. - T. D. Noe (noe(AT)sspectra.com), Jan 18 2006

LINKS

Eric Weisstein's World of Mathematics, Fibonacci Number

FORMULA

a(n)=A023645(n)+1 - T. D. Noe (noe(AT)sspectra.com), Jan 18 2006

a(n) = tau(n)-[n is even] = A000005(n)-A059841(n). Proof: gcd(Fib(m), Fib(n)) = Fib(gcd(m, n)) and Fib(2) = 1. - Olivier Wittenberg, following a conjecture of Ralf Stephan, Sep 28 2004

The number of divisors of n excluding 2.

a(2n)=A066660(n). a(2n-1)=A099774(n). - Michael Somos Sep 03 2006

a(3*2^(Prime[n-1]-1)) = 2n + 1 for n>3. a(3*2^A068499[n]) = 2n + 1, where A068499[n] = {1,2,3,4,6,10,12,16,18,...}. - Alexander Adamchuk (alex(AT)kolmogorov.com), Sep 15 2006

EXAMPLE

n=12, A000045(12)=144: 5 of the 15 divisors of 144 are also Fibonacci numbers, a(12) = #{1, 2, 3, 8, 144} = 5.

MAPLE

with(combinat, fibonacci):a[1] := 1:for i from 2 to 229 do s := 0:for j from 2 to i do if((fibonacci(i) mod fibonacci(j))=0) then s := s+1:fi:od:a[i] := s:od:seq(a[l], l=2..229);

MATHEMATICA

Table[s=DivisorSigma[0, n]; If[OddQ[n], s, s-1], {n, 100}] (Noe)

PROGRAM

(PARI) {a(n)=if(n<1, 0, numdiv(n)+n%2-1)} /* Michael Somos Sep 03 2006 */

(PARI) {a(n)=if(n<1, 0, sumdiv(n, d, d!=2))} /* Michael Somos Sep 03 2006 */

CROSSREFS

Cf. A000005, A063375, A000045, A105800.

Cf. A076985.

Cf. A068499.

Sequence in context: A106696 A131839 A143299 this_sequence A079085 A076869 A104307

Adjacent sequences: A076981 A076982 A076983 this_sequence A076985 A076986 A076987

KEYWORD

nonn

AUTHOR

Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Oct 25 2002

EXTENSIONS

Corrected and extended by Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Jan 26 2003

Edited by N. J. A. Sloane (njas(AT)research.att.com), Sep 14 2006. Some of the comments and formulae may need to be adjusted to reflect the new offset.

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 8 08:31 EST 2009. Contains 170430 sequences.


AT&T Labs Research