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.

Previous Showing 11-14 of 14 results.

A219558 Number of odd prime pairs {p,q} (p>q) such that p+(1+(n mod 2))q=n and ((p-1-(n mod 2))/q)=((q+1)/p)=1 where (-) denotes the Legendre symbol.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 1, 0, 0, 3, 0, 2, 0, 1, 1, 1, 1, 2, 2, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 3, 0, 1, 1, 1, 0, 1, 1, 2, 1, 1, 2, 0, 0, 2, 1, 2, 1, 1, 0, 1, 1, 2, 2, 3, 0, 0, 0, 0
Offset: 1

Views

Author

Zhi-Wei Sun, Nov 23 2012

Keywords

Comments

For any integer m, define s(m) as the smallest positive integer s such that for each n=s,s+1,... there are primes p>q>2 with p+(1+(n mod 2))q=n and ((p-(1+(n mod 2))m)/q)=((q+m)/p)=1. If such a positive integer s does not exist, then we set s(m)=0.
Zhi-Wei Sun has the following general conjecture: s(m) is always positive. In particular, s(0)=1239,
s(1)=1470, s(-1)=2192, s(2)=1034, s(-2)=1292,
s(3)=1698, s(-3)=1788, s(4)=848, s(-4)=1458,
s(5)=1490, s(-5)=2558, s(6)=1115, s(-6)=1572,
s(7)=1550, s(-7)=932, s(8)=825, s(-8)=2132,
s(9)=1154, s(-9)=1968, s(10)=1880, s(-10)=1305,
s(11)=1052, s(-11)=1230, s(12)=2340, s(-12)=1428,
s(13)=2492, s(-13)=2673, s(14)=1412, s(-14)=1638,
s(15)=1185, s(-15)=1230, s(16)=978, s(-16)=1605,
s(17)=1154, s(-17)=1692, s(18)=1757, s(-18)=2292,
s(19)=1230, s(-19)=2187, s(20)=2048, s(-20)=1372,
s(21)=1934, s(-21)=1890, s(22)=1440, s(-22)=1034,
s(23)=1964, s(-23)=1322, s(24)=1428, s(-24)=2042,
s(25)=1734, s(-25)=1214, s(26)=1260, s(-26)=1230,
s(27)=1680, s(-27)=1154, s(28)=1652, s(-28)=1808,
s(29)=1112, s(-29)=1670, s(30)=1820, s(-30)=1284.
Note that s(1)=1470 means that a(n)>0 for all n=1470,1471,... That s(0)=1239 is related to a conjecture of Olivier Gérard and Zhi-Wei Sun.
If we replace ((p-1-(n mod 2))/q)=((q+1)/p)=1 in the definition of a(n) by ((p-1)/q)=((q+1)/p)=1, then the new a(n) seems positive for any n>1181.

Examples

			a(14)=1 since 14=11+3 with ((11-1)/3)=((3+1)/11)=1.
a(31)=1 since 31=17+2*7 with ((17-2)/7)=((7+1)/17)=1.
		

Crossrefs

Programs

  • Mathematica
    a[n_]:=a[n]=Sum[If[PrimeQ[n-(1+Mod[n,2])Prime[k]]==True&&JacobiSymbol[n-(1+Mod[n,2])(Prime[k]+1),Prime[k]]==1&&JacobiSymbol[Prime[k]+1,n-(1+Mod[n,2])Prime[k]]==1,1,0],{k,2,PrimePi[(n-1)/(2+Mod[n,2])]}]
    Do[Print[n," ",a[n]],{n,1,10000}]

A220091 Number of ways to write n=p+q+(n mod 2)q with p>q and p, q, 6q-1, 6q+1 all prime.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 2, 1, 2, 2, 2, 3, 2, 2, 2, 3, 1, 2, 1, 1, 1, 3, 2, 2, 3, 2, 1, 1, 2, 2, 1, 2, 2, 2, 3, 3, 3, 1, 2, 3, 2, 3, 3, 1, 1, 4, 2, 1, 3, 1, 1, 3, 4, 3, 3, 2, 1, 1, 3, 3, 1, 2, 2, 4, 4, 5, 3, 1, 1, 3, 2, 3, 3, 2, 2, 4, 2, 3, 3, 0, 1, 5, 2, 2, 3, 1, 0, 2, 3
Offset: 1

Views

Author

Zhi-Wei Sun, Dec 04 2012

Keywords

Comments

Conjecture: a(n)>0 for all even n>=8070 and odd n>=18680.
This conjecture unifies the twin prime conjecture, Goldbach's conjecture and Lemoine's conjecture. It has been verified for n up to 10^7.
Zhi-Wei Sun also made the following conjecture: Any integer n>=6782 can be written as p+q+(n mod 2)q with p>q and p, q, q-6, q+6 all prime, and any integer n>=4410 can be written as p+q+(n mod 2)q with p>q and p, q, 2q-3, 2q+3 all prime, and any integer n>=16140 can be written as p+q+(n mod 2)q with p>q and p, q, 3q-2, 3q+2 all prime.

Examples

			a(31)=1 since 31=17+2*7 with 6*7-1 and 6*7+1 twin primes.
a(32)=1 since 32=29+3 with 6*3-1 and 6*3+1 twin primes.
		

Crossrefs

Programs

  • Mathematica
    a[n_]:=a[n]=Sum[If[PrimeQ[6Prime[k]-1]==True&&PrimeQ[6Prime[k]+1]==True&&PrimeQ[n-(1+Mod[n,2])Prime[k]]==True,1,0],{k,1,PrimePi[(n-1)/(2+Mod[n,2])]}]
    Do[Print[n," ",a[n]],{n,1,100}]

A220572 Number of ways to write 2n-1=x+y (x,y>=0) with x^18+3*y^18 prime.

Original entry on oeis.org

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

Views

Author

Zhi-Wei Sun, Dec 16 2012

Keywords

Comments

Conjecture: a(n)>0 for every n=1,2,3,.... Moreover, any odd integer greater than 2092 can be written as x+y (x,y>0) with x-3, x+3 and x^18+3*y^18 all prime.
This has been verified for n up to 2*10^6.
Zhi-Wei Sun also made the following general conjecture: For each positive integer m, any sufficiently large odd integer n can be written as x+y (x,y>0) with x-3, x+3 and x^m+3*y^m all prime (and hence there are infinitely many primes in the form x^m+3*y^m). In particular, for m = 1, 2, 3, 4, 5, 6, 18 any odd integer greater than one can be written as x+y (x,y>0) with x^m+3*y^m prime, and for m =1, 2, 3 any odd integer n>15 can be written as x+y (x,y>0) with x-3, x+3 and x^m+3*y^m all prime.
Our computation suggests that for each m=7,...,20 any odd integer greater than 32, 10, 24, 30, 48, 36, 72, 146, 48, 48, 152, 2, 238, 84 respectively can be written as x+y (x,y>0) with x^m+3*y^m prime.

Examples

			a(3)=1 since 2*3-1=5=1+4 with 1^18+3*4^18=206158430209 prime.
		

Crossrefs

Programs

  • Mathematica
    a[n_]:=a[n]=Sum[If[PrimeQ[k^18+3*(2n-1-k)^18]==True,1,0],{k,0,2n-1}]
    Do[Print[n," ",a[n]],{n,1,100}]

A255472 Number of decompositions of 2n into sums of two primes p <= q such that one or both p and q are elements of A023201.

Original entry on oeis.org

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

Views

Author

Lei Zhou, Feb 23 2015

Keywords

Comments

Conjecture: for all n > 3, a(n) > 0.
If 2n = p + q and p+6 is also a prime, 2n+6 can be written as the sum of two primes p+6 and q.
The conjecture is weaker than a conjecture of Sun posed in 2012 (see A219055). - Zhi-Wei Sun, Mar 18 2015

Examples

			n=4: 2n=8=3+5, 5+6=11 is also a prime number. This is the only occurrence, so a(4)=1.
n=5: 2n=10=3+7=5+5. Both 5+6=11 and 7+6=13 are prime numbers. Two occurrences found, so a(5)=2.
		

Crossrefs

Programs

  • Mathematica
    Table[e = 2 n; ct = 0; p1 = 2; While[p1 = NextPrime[p1]; p1 <= n, p2 = e - p1; If[PrimeQ[p2], If[PrimeQ[p1 + 6] || PrimeQ[p2 + 6], ct++]]]; ct, {n, 1, 100}]
  • PARI
    a(n) = {nb = 0; forprime(p=2, 2*n, if ((q=2*n-p) && (q <= p) && isprime(q=2*n-p) && (isprime(q+6) || isprime(p+6)), nb++);); nb;} \\ Michel Marcus, Mar 01 2015
Previous Showing 11-14 of 14 results.