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

A285113 Row sums of A285116: a(n) = 2 + Sum_{k=1..(n-1)} (C(n-1,k-1) bitwise-or C(n-1,k)), a(0) = 1, a(1) = 2.

Original entry on oeis.org

1, 2, 3, 8, 11, 24, 52, 108, 207, 448, 720, 1376, 2892, 5544, 12532, 23448, 47239, 98112, 186672, 377896, 743656, 1519816, 2983160, 6354536, 11975324, 25917040, 48312920, 100406048, 196868844, 397726592, 788233496, 1578253728, 3225757559, 6275638528, 13012144160, 25792000088, 51825463000, 104303846272, 206598440472
Offset: 0

Views

Author

Antti Karttunen, Apr 16 2017

Keywords

Links

Crossrefs

Cf. A000079, A003986, A007318, A285114, A285115, A285116.

Programs

  • Mathematica
    a[n_]:=If[n<2, n + 1, 2 + Sum[BitOr[Binomial[n - 1,k - 1], Binomial[n - 1, k]], {k, n - 1}]]; Table[a[n], {n, 0, 100}] (* Indranil Ghosh, Apr 16 2017 *)
  • PARI
    A285113(n) = if(n<2,n+1,2+sum(k=1,(n-1),bitor(binomial(n-1,k-1),binomial(n-1,k))));
  • Scheme
    (define (A285113 n) (add A285116 (A000217 n) (+ -1 (A000217 (+ 1 n)))))
(define (add intfun lowlim uplim) (let sumloop ((i lowlim) (res 0)) (cond ((> i uplim) res) (else (sumloop (+ 1 i) (+ res (intfun i)))))))

Formula

a(0) = 1, a(1) = 2, for n > 1, a(n) = 2 + Sum_{k=1..(n-1)} C(n-1,k-1) OR C(n-1,k), where C(n,k) is binomial coefficient and OR is bitwise-OR (A003986).
a(n) = A285114(n) + A285115(n).
a(n) = A000079(n) - A285115(n).

A285117 Triangle read by rows: T(0,n) = T(n,n) = 1; and for n > 0, 0 < k < n, T(n,k) = C(n-1,k-1) XOR C(n-1,k), where C(n,k) is binomial coefficient (A007318) and XOR is bitwise-XOR (A003987).

Original entry on oeis.org

1, 1, 1, 1, 0, 1, 1, 3, 3, 1, 1, 2, 0, 2, 1, 1, 5, 2, 2, 5, 1, 1, 4, 15, 0, 15, 4, 1, 1, 7, 9, 27, 27, 9, 7, 1, 1, 6, 18, 54, 0, 54, 18, 6, 1, 1, 9, 20, 36, 126, 126, 36, 20, 9, 1, 1, 8, 45, 112, 42, 0, 42, 112, 45, 8, 1, 1, 11, 39, 85, 170, 46, 46, 170, 85, 39, 11, 1, 1, 10, 60, 146, 495, 132, 0, 132, 495, 146, 60, 10, 1
Offset: 0

Views

Author

Antti Karttunen, Apr 16 2017

Keywords

Examples

			Rows 0 - 12 of the triangle:
  1,
  1, 1,
  1, 0, 1,
  1, 3, 3, 1,
  1, 2, 0, 2, 1,
  1, 5, 2, 2, 5, 1,
  1, 4, 15, 0, 15, 4, 1,
  1, 7, 9, 27, 27, 9, 7, 1,
  1, 6, 18, 54, 0, 54, 18, 6, 1,
  1, 9, 20, 36, 126, 126, 36, 20, 9, 1,
  1, 8, 45, 112, 42, 0, 42, 112, 45, 8, 1,
  1, 11, 39, 85, 170, 46, 46, 170, 85, 39, 11, 1,
  1, 10, 60, 146, 495, 132, 0, 132, 495, 146, 60, 10, 1

Links

Crossrefs

Cf. A003987, A007318, A285116, A285118.
Cf. A285114 (row sums).

Programs

  • Mathematica
    T[n_, k_]:= If[n==0 || n==k, 1, BitXor[Binomial[n - 1, k - 1], Binomial[n - 1, k]]]; Table[T[n, k], {n, 0, 12}, {k, 0, n}] // Flatten (* Indranil Ghosh, Apr 16 2017 *)
  • PARI
    T(n, k) = if (n==0 || n==k, 1, bitxor(binomial(n - 1, k - 1), binomial(n - 1, k)));
for(n=0, 12, for(k=0, n, print1(T(n, k),", ");); print();) \\ Indranil Ghosh, Apr 16 2017
  • Scheme
    (define (A285117 n) (A285117tr (A003056 n) (A002262 n)))
(define (A285117tr n k) (cond ((zero? k) 1) ((= k n) 1) (else (A003987tr (A007318tr (- n 1) (- k 1)) (A007318tr (- n 1) k))))) ;; Where A003987bi implements bitwise-XOR (A003987) and A007318tr gives the binomial coefficients (A007318).

Formula

T(0,n) = T(n,n) = 1; and for n > 0, 0 < k < n, T(n,k) = C(n-1,k-1) XOR C(n-1,k), where C(n,k) is binomial coefficient (A007318) and XOR is bitwise-XOR (A003987).
T(n,k) = A285116(n,k) - A285118(n,k).
C(n,k) = T(n,k) + 2*A285118(n,k). [Where C(n,k) = A007318.]

A285118 Triangle read by rows: T(0,n) = T(n,n) = 0; and for n > 0, 0 < k < n, T(n,k) = C(n-1,k-1) AND C(n-1,k), where C(n,k) is binomial coefficient (A007318) & AND is bitwise-AND (A004198).

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 3, 1, 0, 0, 0, 4, 4, 0, 0, 0, 1, 0, 10, 0, 1, 0, 0, 0, 6, 4, 4, 6, 0, 0, 0, 1, 5, 1, 35, 1, 5, 1, 0, 0, 0, 8, 24, 0, 0, 24, 8, 0, 0, 0, 1, 0, 4, 84, 126, 84, 4, 0, 1, 0, 0, 0, 8, 40, 80, 208, 208, 80, 40, 8, 0, 0, 0, 1, 3, 37, 0, 330, 462, 330, 0, 37, 3, 1, 0, 0, 0, 0, 64, 204, 264, 792, 792, 264, 204, 64, 0, 0, 0
Offset: 0

Views

Author

Antti Karttunen, Apr 16 2017

Keywords

Examples

			Rows 0-13 of array:
  0,
  0, 0,
  0, 1, 0,
  0, 0, 0, 0,
  0, 1, 3, 1, 0,
  0, 0, 4, 4, 0, 0,
  0, 1, 0, 10, 0, 1, 0,
  0, 0, 6, 4, 4, 6, 0, 0,
  0, 1, 5, 1, 35, 1, 5, 1, 0,
  0, 0, 8, 24, 0, 0, 24, 8, 0, 0,
  0, 1, 0, 4, 84, 126, 84, 4, 0, 1, 0,
  0, 0, 8, 40, 80, 208, 208, 80, 40, 8, 0, 0,
  0, 1, 3, 37, 0, 330, 462, 330, 0, 37, 3, 1, 0,
  0, 0, 0, 64, 204, 264, 792, 792, 264, 204, 64, 0, 0, 0

Links

Crossrefs

Cf. A004198, A007318, A285116, A285117.
Cf. A285115 (row sums).

Programs

  • Mathematica
    T[n_, k_]:= If[n==0 || n==k, 0, BitAnd[Binomial[n - 1, k - 1], Binomial[n - 1, k]]]; Table[T[n, k], {n, 0, 13}, {k, 0, n}] // Flatten (* Indranil Ghosh, Apr 16 2017 *)
  • PARI
    T(n, k) = if (n==0 || n==k, 0, bitand(binomial(n - 1, k - 1), binomial(n - 1, k)));
for(n=0, 13, for(k=0, n, print1(T(n, k),", ");); print();) \\ Indranil Ghosh, Apr 16 2017
  • Scheme
    (define (A285118 n) (A285118tr (A003056 n) (A002262 n)))
(define (A285118tr n k) (cond ((zero? k) 0) ((= k n) 0) (else (A004198bi (A007318tr (- n 1) (- k 1)) (A007318tr (- n 1) k))))) ;; Where A004198bi implements bitwise-AND (A004198) and A007318tr gives the binomial coefficients (A007318).

Formula

T(0,n) = T(n,n) = 0; and for n > 0, 0 < k < n, T(n,k) = C(n-1,k-1) AND C(n-1,k), where C(n,k) is binomial coefficient (A007318) & AND is bitwise-AND (A004198).
T(n,k) = A285116(n,k) - A285117(n,k).
A007318(n,k) = C(n,k) = A285116(n,k) + T(n,k) = A285117(n,k) + 2*T(n,k).
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.