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.

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

Original entry on oeis.org

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

Views

Author

Zhi-Wei Sun, Oct 12 2013

Keywords

Comments

Conjecture: a(n) > 0 except for n = 1, 16, 292.
This implies not only Goldbach's conjecture for even numbers, but also Ming-Zhi Zhang's conjecture (cf. A036468) that any odd number greater than one can be written as x + y (x, y > 0) with x^2 + y^2 prime.
We have verified the conjecture for n up to 10^7.
Conjecture verified for n up tp 10^9. - Mauro Fiorentini, Sep 21 2023

Examples

			a(7) = 1 since 2*7 = 11 + 3, and (11-1)^2 + 3^2 = 109 is prime.
a(19) = 1 since 2*19 = 7 + 31, and (7-1)^2 + 31^2 = 997 is prime.

Links

Crossrefs

Cf. A002375, A036468, A220554, A230224.

Programs

  • Mathematica
    a[n_]:=Sum[If[PrimeQ[2n-Prime[i]]&&PrimeQ[(Prime[i]-1)^2+(2n-Prime[i])^2],1,0],{i,1,PrimePi[2n-2]}]
Table[a[n],{n,1,100}]

A227909 Number of ways to write 2*n = p + q with p, q and (p-1)*(q+1) - 1 all prime.

Original entry on oeis.org

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

Views

Author

Olivier Gérard and Zhi-Wei Sun, Oct 13 2013

Keywords

Comments

Conjecture: a(n) > 0 for all n > 1.
This is stronger than Goldbach's conjecture for even numbers. It also implies A. Murthy's conjecture (cf. A109909) for even numbers.
We have verified the conjecture for n up to 2*10^7.
Conjecture verified for n up to 10^9. - Mauro Fiorentini, Jul 26 2023

Examples

			a(6) = 1 since 2*6 = 5 + 7, and (5-1)*(7+1)-1 = 31 is prime.
a(10) = 1 since 2*10 = 7 + 13, and (7-1)*(13+1)-1 = 83 is prime.
a(20) = 1 since 2*20 = 17 + 23, and (17-1)*(23+1)-1 = 383 is prime.

Links

Crossrefs

Cf. A002375, A109909, A218754, A219052, A220431, A220455, A220554, A227908, A230230.

Programs

  • Mathematica
    a[n_]:=Sum[If[PrimeQ[2n-Prime[i]]&&PrimeQ[(Prime[i]-1)(2n-Prime[i]+1)-1],1,0],{i,1,PrimePi[2n-2]}]
Table[a[n],{n,1,100}]

A192056 a(n) = |{0

Original entry on oeis.org

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

Views

Author

Zhi-Wei Sun, Dec 30 2012

Keywords

Comments

Conjecture: a(n)>0 for all n>2. Moreover, if n>2 is not among 12, 18, 105, 522, then there is 0
k^2+(n-k)^2-3(n-1 mod 2) is prime and also JacobiSymbol[k,p]=1 for any prime divisor p of n+3(n-1 mod 2).
This conjecture has been verified for n up to 2*10^8. It is stronger than Ming-Zhi Zhang's conjecture that any odd integer n>1 can be written as x+y (x,y>0) with x^2+y^2 prime (see A036468).

Examples

			a(33)=1 since 4^2+29^2=857 is prime and JacobiSymbol[4,33]=1.
a(24)=1 since 10^2+14^2-3=293 is prime and JacobiSymbol[10,24+3]=1.

Links

Crossrefs

Cf. A036468, A191004, A185150, A220554.

Programs

  • Mathematica
    a[n_]:=a[n]=Sum[If[PrimeQ[k^2+(n-k)^2-3Mod[n-1,2]]==True&&JacobiSymbol[k,n+3Mod[n-1,2]]==1,1,0],{k,1,(n-1)/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.

Links

Crossrefs

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

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