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-5 of 5 results.

A048757 Sum_{i=0..2n} (C(2n,i) mod 2)*Fibonacci(i+2) = Sum_{i=0..n} (C(n,i) mod 2)*Fibonacci(2i+2).

Original entry on oeis.org

1, 4, 9, 33, 56, 203, 441, 1596, 2585, 9353, 20304, 73461, 124033, 448756, 974169, 3524577, 5702888, 20633243, 44791065, 162055596, 273617239, 989956471, 2149017696, 7775219067, 12591974497, 45558191716, 98898651657
Offset: 0

Views

Author

Antti Karttunen, Jul 13 1999

Keywords

Comments

The history of 1-D CA Rule 90 starting from the seed pattern 1 interpreted as Zeckendorffian expansion.
Also, product of distinct terms of A001566 and appropriate Fibonacci or Lucas numbers: a(n) = FL(n+2)Product(L(2^i)^bit(n,i),i=0..) Here L(2^i) = A001566 and FL(n) = n-th Fibonacci number if n even, n-th Lucas number if n odd. bit(n,i) is the i-th digit (0 or 1) in the binary expansion of n, with the least significant digit being bit(n,0).

Examples

			1 = Fib(2) = 1;
101 = Fib(4) + Fib(2) = 3 + 1 = 4;
10001 = Fib(6) + Fib(2) = 8 + 1 = 9;
1010101 = Fib(8) + Fib(6) + Fib(4) + Fib(2) = 21 + 8 + 3 + 1 = 33; etc.
		

Crossrefs

a(n) = A022290(A038183(n)) = A022290(A048723(5, n)) = A003622(A051656(n)) = A075148(n, 2)*A050613(n). Third row of A050609, third column of A050610.
Cf. A054433.

Programs

  • Mathematica
    Table[Sum[Mod[Binomial[2n, i], 2] Fibonacci[i + 2], {i, 0, 2n}], {n, 0, 19}] (* Alonso del Arte, Apr 27 2014 *)

A050609 Table T(n,k) = Sum_{i=0..2n} (C(2n,i) mod 2)*F(i+k) = Sum_{i=0..n} (C(n,i) mod 2)*F(2i+k).

Original entry on oeis.org

0, 1, 1, 3, 3, 1, 12, 6, 4, 2, 21, 21, 9, 7, 3, 77, 35, 33, 15, 11, 5, 168, 126, 56, 54, 24, 18, 8, 609, 273, 203, 91, 87, 39, 29, 13, 987, 987, 441, 329, 147, 141, 63, 47, 21, 3572, 1598, 1596, 714, 532, 238, 228, 102, 76, 34, 7755, 5781, 2585, 2583, 1155, 861, 385
Offset: 0

Views

Author

Antti Karttunen, Dec 02 1999

Keywords

Comments

Listed antidiagonalwise as T(0,0), T(1,0), T(0,1), T(2,0), T(1,1), T(0,2), ...

Crossrefs

Transpose of A050610. First row: A051656, second row: A050611, third row: A048757, fourth row: A050612. A050613 gives other Maple procedures. Cf. A025581, A002262.

Programs

  • Maple
    A050609_as_sum := proc(n,k) local i; RETURN(add(((binomial(n,i) mod 2)*fibonacci(k+2*i)),i=0..n)); end;
    A050609_as_product := (n,k) -> (`if`(1 = (n mod 2),luc(n+k),fibonacci(n+k)))*product('luc(2^i)^bit_i(n,i)','i'=1..floor_log_2(n+1)); # Produces same answers.
    [seq(A050609_as_sum(A025581(n), A002262(n)),n=0..119)];

Formula

Also a(n) = A075148(n, k)*A050613(n).

A051656 Sum_{i=0..n} (C(n,i) mod 2)*Fibonacci(2*i).

Original entry on oeis.org

0, 1, 3, 12, 21, 77, 168, 609, 987, 3572, 7755, 28059, 47376, 171409, 372099, 1346268, 2178309, 7881197, 17108664, 61899729, 104512485, 378129724, 820851717, 2969869413, 4809706272, 17401680769, 37775923491, 136674575148
Offset: 0

Views

Author

Antti Karttunen, Nov 30 1999

Keywords

Comments

Positions in the first column (A003622) of Wythoff array of the terms which have their Zeckendorf Expansion patterned as row[2n+1] in Pascal's Triangle computed modulo 2 (A047999)

References

  • Proof in preparation, to be published (see A048757).

Crossrefs

Cf. A048757, A047999, A035513, A038183, A051256. First row of A050609, First column of A050610.
a(n) = A019586[A048757[n]]. A048757[n] = SS(Athis_sequence[n])+1, where SSx means the second Fibonacci Successor of x (= x's Z.E. shifted left twice).
Cf. A001906.

Programs

  • Haskell
    a051656 = sum . zipWith (*) a001906_list . a047999_row
    -- Reinhard Zumkeller, Feb 27 2011
    
  • Mathematica
    Table[Sum[Mod[Binomial[n,i],2]Fibonacci[2i],{i,0,n}],{n,0,30}] (* Harvey P. Dale, Oct 30 2011 *)
  • PARI
    a(n)=sum(i=0,n,if(!bitand(i,n-i),fibonacci(2*i))) \\ Charles R Greathouse IV, Jan 04 2013

Formula

a(n) = sum_{i=0..n} (C(2n, 2i) mod 2)*F(2*i) = FL(n)product_{i=0..inf} L(2^i)^bit(n, i) where L is n-th Lucas number (A000032) and FL is defined as in A048757: FL(n) = n-th fibonacci number if n even, n-th Lucas number if n odd.

A050611 Sum_{i=0..n} (C(n,i) mod 2)*Fibonacci(2i+1) = FL(n+1)Product(L(2^i)^bit(n,i),i=0..).

Original entry on oeis.org

1, 3, 6, 21, 35, 126, 273, 987, 1598, 5781, 12549, 45402, 76657, 277347, 602070, 2178309, 3524579, 12752046, 27682401, 100155867, 169104754, 611826747, 1328165979, 4805349654, 7782268225, 28156510947, 61122728166, 221144107989
Offset: 0

Views

Author

Antti Karttunen, Oct 24 1999

Keywords

Crossrefs

Second row of A050609, second column of A050610.

A050612 Sum_{i=0..n} (C(n,i) mod 2)*Fibonacci(2i+3) = FL(n+3)Product(L(2^i)^bit(n,i),i=0..).

Original entry on oeis.org

2, 7, 15, 54, 91, 329, 714, 2583, 4183, 15134, 32853, 118863, 200690, 726103, 1576239, 5702886, 9227467, 33385289, 72473466, 262211463, 442721993, 1601783218, 3477183675, 12580568721, 20374242722, 73714702663
Offset: 0

Views

Author

Antti Karttunen, Oct 24 1999

Keywords

Crossrefs

Fourth row of A050609, fourth column of A050610.
Showing 1-5 of 5 results.