cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A193292 Number of odd divisors of Fibonacci(n).

Original entry on oeis.org

1, 1, 1, 2, 2, 1, 2, 4, 2, 4, 2, 3, 2, 4, 4, 8, 2, 4, 4, 16, 4, 4, 2, 12, 6, 4, 8, 16, 2, 16, 4, 16, 4, 4, 8, 32, 8, 8, 4, 64, 4, 16, 2, 32, 16, 8, 2, 48, 8, 48, 4, 16, 4, 32, 16, 96, 16, 8, 4, 192, 4, 8, 16, 64, 8, 16, 8, 32, 16, 128, 4, 256, 4, 16, 24, 32
Offset: 1

Views

Author

Michel Lagneau, Jul 21 2011

Keywords

Examples

			a(16) = 8 because Fibonacci(16) = 987 = 3 * 7 * 47 and the 8 odd divisors are {1, 3, 7, 21, 47, 141, 329, 987}.
		

Crossrefs

Programs

  • Mathematica
    f[n_] := Block[{d = Divisors[Fibonacci[n]]}, Count[OddQ[d], True]]; Table[
      f[n], {n, 110}]
  • PARI
    a(n)=n=fibonacci(n);numdiv(n>>valuation(n,2)) \\ Charles R Greathouse IV, Jul 30 2011

Formula

a(n) = A001227(A000045(n)). - Michel Marcus, Jan 14 2014

A193294 Sum of even divisors of Fibonacci(n).

Original entry on oeis.org

0, 0, 2, 0, 0, 14, 0, 0, 36, 0, 0, 390, 0, 0, 744, 0, 0, 5040, 0, 0, 11816, 0, 0, 154752, 0, 0, 213840, 0, 0, 1999872, 0, 0, 3564360, 0, 0, 46656000, 0, 0, 63517896, 0, 0, 526048320, 0, 0, 1465647264, 0, 0, 16665772032, 0, 0, 20377766312, 0, 0, 173039328000
Offset: 1

Views

Author

Michel Lagneau, Jul 21 2011

Keywords

Examples

			a(6) = 14 because Fibonacci(6) = 8, and the sum of the even divisors {2, 4, 8} = 14.
		

Crossrefs

Programs

  • Mathematica
    Table[Total[Select[Divisors[Fibonacci[n]], EvenQ[ # ]&]], {n, 75}]
  • PARI
    a(n)=if(n%3,0,2*sigma(fibonacci(n)/2)) \\ Charles R Greathouse IV, Jul 31 2011
Showing 1-2 of 2 results.