A220419 -id:A220419 - cp's OEIS frontend

A220455 Number of ways to write n=x+y (x>0, y>0) with 3x-2, 3x+2 and 2xy+1 all prime.

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

Offset: 1

Zhi-Wei Sun, Dec 15 2012

nonn

Conjecture: a(n)>0 for all n>7.
This has been verified for n up to 10^8. It implies that there are infinitely many cousin primes.
Conjecture verified for n up to 10^9. - Mauro Fiorentini, Aug 06 2023
Zhi-Wei Sun also made some other similar conjectures, e.g., he conjectured that any integer n>17 can be written as x+y (x>0, y>0) with 2x-3, 2x+3 and 2xy+1 all prime, and each integer n>28 can be written as x+y (x>0, y>0) with 2x+1, 2y-1 and 2xy+1 all prime.
Both conjectures verified for n up to 10^9. - Mauro Fiorentini, Aug 06 2023

			a(25)=1 since 25=13+12 with 3*13-2, 3*13+2 and 2*13*12+1=313 all prime.

Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
Zhi-Wei Sun, Conjectures involving primes and quadratic forms, arXiv:1211.1588 [math.NT], 2012-2017.

Cf. A220431, A023200, A046132, A218867, A219055, A220419, A220413, A220272, A219842, A219864, A219923.

a[n_]:=a[n]=Sum[If[PrimeQ[3k-2]==True&&PrimeQ[3k+2]==True&&PrimeQ[2k(n-k)+1]==True,1,0],{k,1,n-1}]
Do[Print[n," ",a[n]],{n,1,1000}]
apQ[{a_,b_}]:=AllTrue[{3a-2,3a+2,2a*b+1},PrimeQ]; Table[Count[Flatten[ Permutations/@ IntegerPartitions[n,{2}],1],?(apQ[#]&)],{n,100}] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale, Jun 09 2018 *)

A220431 Number of ways to write n=x+y (x>0, y>0) with 3x-1, 3x+1 and xy-1 all prime.

Original entry on oeis.org

0, 0, 0, 1, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 3, 3, 2, 3, 2, 2, 6, 1, 3, 6, 4, 3, 3, 2, 3, 4, 3, 4, 2, 3, 3, 5, 4, 4, 7, 1, 2, 5, 1, 5, 7, 4, 2, 3, 7, 4, 7, 2, 4, 7, 4, 4, 5, 2, 5, 8, 4, 3, 3, 5, 2, 8, 5, 4, 3, 10, 7, 8, 2, 3, 5, 5, 3, 6, 3, 3, 14, 4, 3, 12, 3, 7, 7, 5, 6, 8, 7, 5, 9, 9, 4, 4, 3, 6, 10, 8

Offset: 1

Zhi-Wei Sun, Dec 14 2012

nonn

Conjecture: a(n)>0 for all n>3.
This has been verified for n up to 10^8, and it is stronger than A. Murthy's conjecture related to A109909.
Conjecture verified for n up to 10^9. - Mauro Fiorentini, Jul 26 2023
The conjecture implies the twin prime conjecture for the following reason: If x_1<...Zhi-Wei Sun also made some similar conjectures. For example, any integer n>2 not equal to 63 can be written as x+y (x>0, y>0) with 2x-1, 2x+1 and 2xy+1 all prime.
Conjecture verified for n up to 10^9. - Mauro Fiorentini, Jul 26 2023

			a(22)=1 since 22=4+18 with 3*4-1, 3*4+1 and 4*18-1 all prime.

Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
Zhi-Wei Sun, Conjectures involving primes and quadratic forms, arXiv:1211.1588.

Cf. A001359, A006512, A220419, A220413, A173587, A220272, A219842, A219864, A219923.

a[n_]:=a[n]=Sum[If[PrimeQ[3k-1]==True&&PrimeQ[3k+1]==True&&PrimeQ[k(n-k)-1]==True,1,0],{k,1,n-1}]
Do[Print[n," ",a[n]],{n,1,1000}]

A220554 Number of ways to write 2n = p+q (q>0) with p, 2p+1 and (p-1)^2+q^2 all prime.

Original entry on oeis.org

0, 2, 3, 2, 2, 2, 2, 3, 3, 3, 1, 1, 2, 3, 3, 1, 2, 3, 4, 3, 4, 2, 2, 2, 3, 1, 3, 3, 5, 3, 1, 2, 2, 2, 5, 2, 1, 2, 2, 5, 1, 2, 4, 3, 4, 4, 3, 5, 4, 4, 1, 2, 2, 2, 4, 4, 4, 4, 6, 6, 4, 2, 6, 4, 4, 4, 2, 2, 5, 6, 3, 2, 3, 5, 5, 4, 3, 2, 4, 4, 2, 4, 4, 4, 4, 3, 4, 3, 5, 6, 3, 4, 5, 5, 3, 1, 2, 5, 3, 4

Offset: 1

Zhi-Wei Sun, Dec 15 2012

nonn

Conjecture: a(n)>0 for all n>1.
This has been verified for n up to 2*10^8. It implies that there are infinitely many Sophie Germain primes.
Note that Ming-Zhi Zhang asked (before 1990) whether any odd integer greater than 1 can be written as x+y (x,y>0) with x^2+y^2 prime, see A036468.
Zhi-Wei Sun also made the following related conjectures:
(1) Any integer n>2 can be written as x+y (x,y>=0) with 3x-1, 3x+1 and x^2+y^2-3(n-1 mod 2) all prime.
(2) Each integer n>3 not among 20, 40, 270 can be written as x+y (x,y>0) with 3x-2, 3x+2 and x^2+y^2-3(n-1 mod 2) all prime.
(3) Any integer n>4 can be written as x+y (x,y>0) with 2x-3, 2x+3 and x^2+y^2-3(n-1 mod 2) all prime. Also, every n=10,11,... can be written as x+y (x,y>=0) with x-3, x+3 and x^2+y^2-3(n-1 mod 2) all prime.
(4) Any integer n>97 can be written as p+q (q>0) with p, 2p+1, n^2+pq all prime. Also, each integer n>10 can be written as p+q (q>0) with p, p+6, n^2+pq all prime.
(5) Every integer n>3 different from 8 and 18 can be written as x+y (x>0, y>0) with 3x-2, 3x+2 and n^2-xy all prime.
All conjectures verified for n up to 10^9. - Mauro Fiorentini, Sep 21 2023

			a(16)=1 since 32=11+21 with 11, 2*11+1=23 and (11-1)^2+21^2=541 all prime.

R. K. Guy, Unsolved Problems in Number Theory, 2nd Edition, Springer, New York, 2004, p. 161.

Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
Zhi-Wei Sun, Conjectures involving primes and quadratic forms, arXiv:1211.1588 [math.NT], 2012-2017.

Cf. A005384, A005385, A036468, A220455, A220431, A218867, A219055, A220419, A220413, A220272, A219842, A219864, A219923.

a[n_]:=a[n]=Sum[If[PrimeQ[p]==True&&PrimeQ[2p+1]==True&&PrimeQ[(p-1)^2+(2n-p)^2]==True,1,0],{p,1,2n-1}]
Do[Print[n," ",a[n]],{n,1,1000}]

A199800 Number of ways to write n = p+q with p, 6q-1 and 6q+1 all prime.

Original entry on oeis.org

0, 0, 1, 2, 2, 2, 2, 3, 2, 3, 0, 4, 2, 4, 3, 2, 2, 3, 3, 5, 3, 3, 3, 4, 4, 3, 2, 4, 3, 5, 3, 4, 3, 5, 5, 6, 3, 4, 3, 5, 5, 5, 6, 5, 4, 5, 5, 6, 7, 5, 4, 5, 4, 7, 6, 4, 4, 4, 5, 6, 6, 5, 6, 7, 4, 5, 2, 4, 7, 5, 7, 4, 5, 6, 7, 7, 7, 5, 6, 4, 7, 4, 7, 7, 6, 5, 3, 5, 8, 7, 7, 5, 5, 6, 4, 5, 4, 5, 8, 7

Offset: 1

Zhi-Wei Sun, Dec 21 2012

nonn

Conjecture: a(n)>0 for all n>11.
This implies the twin prime conjecture, and it has been verified for n up to 10^9.
Zhi-Wei Sun also made some similar conjectures, for example, any integer n>5 can be written as p+q with p, 2q-3 and 2q+3 all prime, and each integer n>4 can be written as p+q with p, 3q-2+(n mod 2) and 3q+2-(n mod 2) all prime.

			a(3)=1 since 3=2+1 with 2, 6*1-1 and 6*1+1 all prime.

Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
Zhi-Wei Sun, Conjectures involving primes and quadratic forms, arXiv:1211.1588.

Cf. A001359, A006512, A220419, A220413, A173587, A220272, A219842, A219864, A219923.

a[n_]:=a[n]=Sum[If[PrimeQ[n-k]==True&&PrimeQ[6k-1]==True&&PrimeQ[6k+1]==True,1,0],{k,1,n-1}]
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

Zhi-Wei Sun, Dec 16 2012

nonn

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.

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

Zhi-Wei Sun, Table of n, a(n) for n = 1..5000
Zhi-Wei Sun, Conjectures involving primes and quadratic forms, arXiv:1211.1588.

Cf. A220554, A036468, A220455, A220431, A218867, A219055, A220419, A220413, A220272, A219842, A219864, A219923.

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}]

Showing 1-5 of 5 results.

cp's OEIS Frontend

A220455 Number of ways to write n=x+y (x>0, y>0) with 3x-2, 3x+2 and 2xy+1 all prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A220431 Number of ways to write n=x+y (x>0, y>0) with 3x-1, 3x+1 and xy-1 all prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A220554 Number of ways to write 2n = p+q (q>0) with p, 2p+1 and (p-1)^2+q^2 all prime.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

A199800 Number of ways to write n = p+q with p, 6q-1 and 6q+1 all prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica