A235187 -id:A235187 - cp's OEIS frontend

A235189 Number of ways to write n = (1 + (n mod 2))*p + q with p < n/2 such that p, q and prime(p) - p + 1 are all prime.

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

Offset: 1

Zhi-Wei Sun, Jan 04 2014

nonn

Conjecture: a(n) > 0 for all n > 6.

This implies both Goldbach's conjecture (A045917) and Lemoine's conjecture (A046927). For primes p with prime(p) - p + 1 also prime, see A234695.

			a(10) = 1 since 10 = 3 + 7 with 3, 7 and prime(3) - 3 + 1 = 3 all prime.
a(28) = 1 since 28 = 5 + 23 with 5, 23 and prime(5) - 4 = 7 all prime.
a(61) = 1 since 61 = 2*7 + 47 with 7, 47 and prime(7) - 6 = 11 all prime.
a(98) = 1 since 98 = 31 + 67 with 31, 67 and prime(31) - 30 = 97 all prime.

Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
Z.-W. Sun, Problems on combinatorial properties of primes, arXiv:1402.6641, 2014

Cf. A000040, A045917, A046927, A234694, A234695, A235187.

p[n_]:=PrimeQ[Prime[n]-n+1]
a[n_]:=Sum[If[p[Prime[k]]&&PrimeQ[n-(1+Mod[n,2])*Prime[k]],1,0],{k,1,PrimePi[(n-1)/2]}]
Table[a[n],{n,1,100}]

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

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Jan 05 2014

nonn

Conjecture: (i) a(n) > 0 for all n >= 2480.
(ii) If n > 4368 then 2*n+1 can be written as 2*p + q with p and q terms of the sequence A234695.
Parts (i) and (ii) are stronger than Goldbach's conjecture  (A045917) and Lemoine's conjecture (A046927) respectively.

			a(8) = 1 since 2*8 = 5 + 11 with 5, 11, prime(5) - 5 + 1 = 7 and prime(11) + 11 + 1 = 43 all prime.

Zhi-Wei Sun, Table of n, a(n) for n = 1..10000

Cf. A000040, A045917, A046927, A234695, A235187, A235189.

p[n_] := PrimeQ[n] && PrimeQ[Prime[n] - n + 1];
q[n_] := PrimeQ[n] && PrimeQ[Prime[n] + n + 1];
a[n_] := Sum[If[p[k] && q[2 n - k], 1, 0], {k, 1, 2 n - 1}];
Table[a[n], {n, 1, 100}]

cp's OEIS Frontend

A235189 Number of ways to write n = (1 + (n mod 2))*p + q with p < n/2 such that p, q and prime(p) - p + 1 are all prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica