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.

A167912 a(n) = (1/(3^n)^2) * Sum_{k=0..(3^n-1)} binomial(2k,k).

Original entry on oeis.org

1, 217, 913083596083, 18744974860247264575032720770000376335095039
Offset: 1

Views

Author

Alexander Adamchuk, Nov 15 2009

Keywords

Comments

Note that a(n) mod 27 = a(n) mod 9 = a(n) mod 3 = 1.
The Maple program yields the first seven terms; easily adjustable for obtaining more terms. However, a(4) has 44 digits, a(5) has 140 digits, a(6) has 432 digits and a(7) has 1308 digits. - Emeric Deutsch, Nov 22 2009

Crossrefs

Programs

  • Maple
    a := proc (n) options operator, arrow: (sum(binomial(2*k, k), k = 0 .. 3^n-1))/3^(2*n) end proc: seq(a(n), n = 1 .. 7); # Emeric Deutsch, Nov 22 2009
  • Mathematica
    Table[(1/3^n)^2 * Sum[Binomial[2 k, k], {k, 0, 3^n - 1}], {n, 1, 5}] (* G. C. Greubel, Jul 01 2016 *)

Extensions

a(4) from Emeric Deutsch, Nov 22 2009

A181990 a(n) = Sum_{0 <= k <= m < p} (binomial(m, k)^(p-1))/p, where p is the n-th prime.

Original entry on oeis.org

3, 399, 12708885, 124515078454872901983423, 39212583445587381894247266262023061, 43487633454143579523135045521112077473364484383507327790688372131, 157851796824901989964381293031623545741924564754192453966085327785455257503133278729
Offset: 2

Views

Author

Alexander Adamchuk, Apr 04 2012

Keywords

Comments

a(n) is a sum of all elements in the first p rows of Pascal's triangle each raised to the (p-1) power and divided by p, where p is the n-th prime.
For p = 3 and 7 (and their powers like 3, 9, 27, ... and 7, 49, ...) the sums of all elements in n = p^k top rows of Pascal's triangle each raised to the (n-1) = (p^k-1) power are divisible by n^2 = p^(2k) for all k > 0.

Crossrefs

Programs

  • Mathematica
    Table[(Sum[Binomial[m, k]^(Prime[n] - 1), {m, 0, Prime[n] - 1}, {k, 0, m}])/Prime[n], {n, 2, 10}]
  • PARI
    a(n) = my(p=prime(n)); sum(m=0, p-1, sum(k=0, m, binomial(m,k)^(p-1))/p); \\ Michel Marcus, Dec 03 2018
Showing 1-2 of 2 results.