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

A279730 Partial sums of A279729.

Original entry on oeis.org

0, 0, 6, 14, 34, 46, 60, 60, 96, 96, 118, 190, 216, 216, 306, 306, 340, 412, 450, 450, 492, 492, 538, 538, 538, 590, 590, 590, 648, 948, 1010, 1010, 1010, 1078, 1078, 1078, 1152, 1152, 1230, 1230, 1312, 1564, 1650, 1650, 1740, 1740, 1834, 1834, 1834, 1934
Offset: 1

Views

Author

Wesley Ivan Hurt, Dec 17 2016

Keywords

Links

Crossrefs

Cf. A278700, A279727, A279728, A279729.

Programs

  • Maple
    with(numtheory): A279730:=n->2*add(add(j * (pi(i)-pi(i-1)) * (pi(2*j-i)-pi(2*j-i-1)) * (product(1-abs((pi(k)-pi(k-1))-(pi(2*j-k)-pi(2*j-k-1))), k=i..j)), i=3..j), j=1..n): seq(A279730(n), n=1..40);
  • Mathematica
    f[n_, x_: 0] := Sum[(If[x == 0, i, 2 n - i] Boole[PrimeQ@ i] Boole[PrimeQ[2 n - i]]) Product[1 - Abs[Boole[PrimeQ@ k] - Boole[PrimeQ[2 n - k]]], {k, i, n}], {i, 3, n}]; Accumulate@ Table[f@ n + f[n, 1], {n, 50}] (* Michael De Vlieger, Dec 18 2016 *)

A279727 Sum of the smaller parts of the Goldbach partitions (p,q) of 2n such that all primes from p to q (inclusive) appear as a part in some Goldbach partition of p+q = 2n.

Original entry on oeis.org

0, 0, 3, 3, 8, 5, 7, 0, 12, 0, 11, 23, 13, 0, 31, 0, 17, 30, 19, 0, 19, 0, 23, 0, 0, 23, 0, 0, 29, 101, 31, 0, 0, 31, 0, 0, 37, 0, 37, 0, 41, 109, 43, 0, 43, 0, 47, 0, 0, 47, 0, 0, 100, 0, 0, 53, 0, 0, 59, 112, 61, 0, 0, 61, 0, 0, 67, 0, 67, 0, 71, 71, 73, 0, 0, 73, 0, 0
Offset: 1

Views

Author

Wesley Ivan Hurt, Dec 17 2016

Keywords

Links

Crossrefs

Cf. A010051, A279315, A279728, A279729.

Programs

  • Maple
    with(numtheory): A279727:=n->add( i * (pi(i)-pi(i-1)) * (pi(2*n-i)-pi(2*n-i-1)) * (product(1-abs((pi(k)-pi(k-1))-(pi(2*n-k)-pi(2*n-k-1))), k=i..n)), i=3..n): seq(A279727(n), n=1..100);
  • Mathematica
    Table[Sum[(i Boole[PrimeQ@ i] Boole[PrimeQ[2 n - i]]) Product[1 - Abs[Boole[PrimeQ@ k] - Boole[PrimeQ[2 n - k]]], {k, i, n}], {i, 3, n}], {n, 100}] (* Michael De Vlieger, Dec 18 2016 *)

Formula

a(n) = Sum_{i=3..n} (i * c(i) * c(2n-i) * (Product_{k=i..n} (1-abs(c(k)-c(2n-k))))), where c = A010051.

A279728 Sum of the larger parts of the Goldbach partitions (p,q) of 2n such that all primes from p to q (inclusive) appear as a part in some Goldbach partition of p+q = 2n.

Original entry on oeis.org

0, 0, 3, 5, 12, 7, 7, 0, 24, 0, 11, 49, 13, 0, 59, 0, 17, 42, 19, 0, 23, 0, 23, 0, 0, 29, 0, 0, 29, 199, 31, 0, 0, 37, 0, 0, 37, 0, 41, 0, 41, 143, 43, 0, 47, 0, 47, 0, 0, 53, 0, 0, 112, 0, 0, 59, 0, 0, 59, 128, 61, 0, 0, 67, 0, 0, 67, 0, 71, 0, 71, 73, 73, 0, 0, 79, 0, 0
Offset: 1

Views

Author

Wesley Ivan Hurt, Dec 17 2016

Keywords

Links

Crossrefs

Cf. A010051, A279315, A279727, A279729.

Programs

  • Maple
    with(numtheory): A279728:=n->add( (2*n-i) * (pi(i)-pi(i-1)) * (pi(2*n-i)-pi(2*n-i-1)) * (product(1-abs((pi(k)-pi(k-1))-(pi(2*n-k)-pi(2*n-k-1))), k=i..n)), i=3..n): seq(A279728(n), n=1..100);
  • Mathematica
    Table[Sum[((2 n - i) Boole[PrimeQ@ i] Boole[PrimeQ[2 n - i]]) Product[1 - Abs[Boole[PrimeQ@ k] - Boole[PrimeQ[2 n - k]]], {k, i, n}], {i, 3, n}], {n, 100}] (* Michael De Vlieger, Dec 18 2016 *)

Formula

a(n) = Sum_{i=3..n} ((2n-i) * c(i) * c(2n-i) * (Product_{k=i..n} (1-abs(c(k) - c(2n-k))))), where c = A010051.

A293909 Number of Goldbach partitions (p,q) of 2n, p <= q, such that both 2n-2 and 2n+2 have a Goldbach partition with a greater difference between its prime parts than q-p.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 1, 1, 2, 1, 2, 3, 2, 1, 3, 1, 3, 3, 2, 2, 4, 2, 3, 5, 3, 2, 5, 2, 3, 6, 2, 4, 5, 2, 4, 6, 4, 4, 6, 4, 4, 8, 4, 3, 9, 3, 4, 4, 3, 3, 8, 4, 5, 8, 5, 6, 10, 5, 5, 10, 4, 4, 8, 3, 5, 9, 5, 4, 8, 6, 7, 10, 5, 5, 11, 3, 7, 10, 5, 7, 9, 5, 5, 13, 8, 5
Offset: 1

Views

Author

Wesley Ivan Hurt, Oct 19 2017

Keywords

Examples

			a(9) = 2; Both 2(9)-2 = 16 and 2(9)+2 = 20 have two Goldbach partitions: 16 = 13+3 = 11+5 and 20 = 17+3 = 13+7. Note that 13-3 = 10 and 17-3 = 14 are the largest differences of the primes among the Goldbach partitions of 2n-2 and 2n+2. The Goldbach partitions of 2(9) = 18 are 13+5 = 11+7. Since 13-5 = 8 and 11-7 = 4 are both less than min(10,14) = 10, a(9) = 2.

Links

Crossrefs

Cf. A002375, A226237, A278700, A279103, A279315, A279481, A279727, A279728, A279729, A279792.

Extensions

More terms from Bert Dobbelaere, Sep 15 2019
Showing 1-4 of 4 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.