A234615 -id:A234615 - cp's OEIS frontend

A234530 Primes p with q(p) + 1 also prime, where q(.) is the strict partition function (A000009).

2, 3, 11, 13, 29, 37, 47, 71, 79, 89, 103, 127, 131, 179, 181, 197, 233, 271, 331, 379, 499, 677, 691, 757, 887, 911, 1019, 1063, 1123, 1279, 1429, 1531, 1559, 1637, 2251, 2719, 3571, 4007, 4201, 4211, 4297, 4447, 4651, 4967, 5953, 6131, 7937, 8233, 8599, 8819, 9013, 11003, 11093, 11813, 12251, 12889, 12953, 13487, 13687, 15259

Offset: 1

Zhi-Wei Sun, Dec 27 2013

nonn

By the conjecture in A234514, this sequence should have infinitely many terms.
It seems that a(n+1) < a(n) + a(n-1) for all n > 4.
See A234366 for primes of the form q(p) + 1 with p prime.
See also A234644 for a similar sequence.

			a(1) = 2 since 2 and q(2) + 1 = 2 are both prime.
a(2) = 3 since 3 and q(3) + 1 = 3 are both prime.
a(3) = 11 since 11 and q(11) + 1 = 13 are both prime.

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

Cf. A000009, A000040, A233346, A233393, A234366, A234470, A234475, A234514, A234567, A234569, A234572, A234615, A234644, A234647

n=0;Do[If[PrimeQ[PartitionsQ[Prime[k]]+1],n=n+1;Print[n," ",Prime[k]]],{k,1,10^5}]
Select[Prime[Range[2000]],PrimeQ[PartitionsQ[#]+1]&] (* Harvey P. Dale, Apr 23 2017 *)

A234569 Primes p with P(p-1) also prime, where P(.) is the partition function (A000041).

Original entry on oeis.org

3, 5, 7, 37, 367, 499, 547, 659, 1087, 1297, 1579, 2137, 2503, 3169, 3343, 4457, 4663, 5003, 7459, 9293, 16249, 23203, 34667, 39971, 41381, 56383, 61751, 62987, 72661, 77213, 79697, 98893, 101771, 127081, 136193, 188843, 193811, 259627, 267187, 282913, 315467, 320563, 345923, 354833, 459029, 482837, 496477, 548039, 641419, 647189

Offset: 1

Zhi-Wei Sun, Dec 28 2013

nonn

By the conjecture in A234567, this sequence should have infinitely many terms. It seems that a(n+1) < a(n) + a(n-1) for all n > 5.
The b-file lists all terms not exceeding the 500000th prime 7368787. Note that P(a(113)-1) is a prime having 2999 decimal digits.
See also A234572 for primes of the form P(p-1) with p prime.

			a(1) = 3 since P(2-1) = 1 is not prime, but P(3-1) = 2 is prime.
a(2) = 5 since P(5-1) = 5 is prime.
a(3) = 7 since P(7-1) = 11 is prime.

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

Cf. A000040, A000041, A049575, A233346, A234470, A234475, A234514, A234530, A234567, A234572, A234615, A234644

n=0;Do[If[PrimeQ[PartitionsP[Prime[k]-1]],n=n+1;Print[n," ",Prime[k]]],{k,1,10^6}]

A234644 Primes p with q(p) - 1 also prime, where q(.) is the strict partition function (A000009).

Original entry on oeis.org

5, 11, 13, 17, 19, 23, 41, 43, 53, 59, 79, 103, 151, 191, 269, 277, 283, 373, 419, 521, 571, 577, 607, 829, 859, 1039, 2503, 2657, 2819, 3533, 3671, 4079, 4153, 4243, 4517, 4951, 4987, 5689, 5737, 5783, 7723, 8101, 9137, 9173, 9241, 9539, 11467, 12323, 12697, 15017, 15277, 15427, 15803, 16057, 17959, 18661

Offset: 1

Zhi-Wei Sun, Dec 29 2013

nonn

By the conjecture in A234615, this sequence should have infinitely many terms.
See A234647 for primes of the form q(p) - 1 with p prime.
See also A234530 for a similar sequence.

			a(1) = 5 since neither q(2) - 1 = 0 nor q(3) - 1 = 1 is prime, but q(5) - 1 = 2 is prime.
a(2) = 11 since q(7) - 1 = 4 is composite, but q(11) - 1 = 11 is prime.

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

Cf. A000009, A000040, A234470, A234475, A234514, A234530, A234567, A234569, A234572, A234615, A234647.

q[k_]:=q[k]=PrimeQ[PartitionsQ[Prime[k]]-1]
n=0;Do[If[q[k],n=n+1;Print[n," ",Prime[k]]],{k,1,10^5}]

A235343 a(n) = |{0 < k < n: f(n,k) - 1, f(n,k) + 1 and q(f(n,k)) + 1 are all prime with f(n,k) = phi(k) + phi(n-k)/4}|, where phi(.) is Euler's totient function, and q(.) is the strict partition function (A000009).

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Jan 06 2014

nonn

Conjecture: (i) a(n) > 0 for all n >= 60.
(ii) For any integer n > 1234, there is a positive integer k < n such that g(n,k) - 1, g(n,k) + 1 and q(g(n,k)) - 1 are all prime, where g(n,k) = phi(k) + phi(n-k)/8.
Clearly, part (i) implies that there are infinitely many primes of the form q(m) + 1 with m - 1 and m + 1 also prime, and part (ii) implies that there are infinitely many primes of the form q(m) - 1 with m - 1 and m + 1 also prime. As log q(m) is asymptotically equivalent to  pi*sqrt(m/3), the conjecture is much stronger than the twin prime conjecture.
We have verified parts (i) and (ii) for n up to 100000 and 60000 respectively.

			a(50) = 1 since phi(34) + phi(16)/4 = 18 with 18 - 1, 18 + 1 and q(18) + 1 = 47 all prime.
a(215) = 1 since phi(87) + phi(128)/4 = 72 with 72 - 1, 72 + 1 and q(72) + 1 = 36353 all prime.
a(645) = 1 since phi(365) + phi(280)/4 = 312 with 312 - 1, 312 + 1 and q(312) + 1 = 207839472391 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. A000009, A000010, A000040, A001359, A006512, A014574, A234514, A234567, A234615, A235344, A235346, A235356, A235357, A235358.

f[n_,k_]:=EulerPhi[k]+EulerPhi[n-k]/4
p[n_,k_]:=PrimeQ[f[n,k]-1]&&PrimeQ[f[n,k]+1]&&PrimeQ[PartitionsQ[f[n,k]]+1]
a[n_]:=Sum[If[p[n,k],1,0],{k,1,n-1}]
Table[a[n],{n,1,100}]

A235358 a(n) = |{0 < k < n: g(n,k) - 1, g(n,k) + 1 and q(g(n,k)) - 1 are all prime with g(n,k) = phi(k) + phi(n-k)/8}|, where phi(.) is Euler's totient function and q(.) is the strict partition function (A000009).

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 3, 1, 2, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 2, 2, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 2, 0, 2, 1, 2, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 2, 2, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1

Offset: 1

Zhi-Wei Sun, Jan 07 2014

nonn

Conjecture: a(n) > 0 for all n > 1234.
See also part (ii) of the conjecture in A235343.
We have verified the conjecture for n up to 100000.

			a(50) = 1 since phi(10) + phi(40)/4 = 6 with 6 - 1, 6 + 1 and q(6) - 1 = 3 all prime.

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

Cf. A000009, A000010, A000040, A001359, A006512, A014574, A234514, A234567, A234615, A235343, A235344, A235346, A235356, A235357.

f[n_,k_]:=EulerPhi[k]+EulerPhi[n-k]/8
p[n_,k_]:=PrimeQ[f[n,k]-1]&&PrimeQ[f[n,k]+1]&&PrimeQ[PartitionsQ[f[n,k]]-1]
a[n_]:=Sum[If[p[n,k],1,0],{k,1,n-1}]
Table[a[n],{n,1,100}]

A234647 Primes of the form q(p) - 1, where p is a prime and q(.) is the strict partition function (A000009).

Original entry on oeis.org

2, 11, 17, 37, 53, 103, 1259, 1609, 5119, 9791, 70487, 570077, 20792119, 281138047, 23515017983, 35692320959, 48626519093, 3626048321047, 27077619952639, 1651411233432319, 10743948315198451, 13378670620050079, 39413984631175423, 58553713102334907283, 145464242180631569963, 25408177717067357968543, 1374387931601409538722802926765483199, 20557774525717988142856527912112710143, 326033386646595458662191828888146112979, 27403889354101748193301659902924397784656229

Offset: 1

Zhi-Wei Sun, Dec 29 2013

nonn

Though the primes in this sequence are very rare, by the conjecture in A234615 there should be infinitely many such primes.

See A234644 for a list of known primes p with q(p) - 1 prime.

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

Cf. A000009, A000040, A234366, A234470, A234475, A234514, A234530, A234567, A234569, A234572, A234615, A234644

a(1) = 2 since 2 = q(5) - 1 with 2 and 5 both prime.

p[n_]:=A234615(n)
Table[PartitionsQ[p[n]]-1,{n,1,30}]

a(n) = A000009(A234615(n)) - 1.

A234808 a(n) = |{0 < k < n: p = k + phi(n-k) and 2*n - p are both prime}|, where phi(.) is Euler's totient function.

Original entry on oeis.org

0, 1, 1, 2, 2, 3, 2, 0, 3, 1, 2, 5, 2, 1, 5, 1, 2, 7, 2, 1, 4, 1, 2, 1, 4, 1, 4, 2, 4, 11, 4, 2, 3, 1, 5, 2, 3, 2, 6, 1, 5, 15, 4, 2, 9, 1, 6, 2, 5, 4, 6, 4, 4, 3, 8, 3, 6, 4, 7, 21, 2, 4, 7, 1, 7, 4, 6, 4, 6, 4, 8, 22, 7, 3, 13, 1, 10, 5, 3, 5, 7, 4, 9, 5, 10, 5, 8, 7, 7, 6, 8, 5, 6, 3, 8, 6, 7, 4, 8, 4

Offset: 1

Zhi-Wei Sun, Dec 30 2013

nonn

Conjecture: a(n) > 0 except for n = 1, 8.

Clearly, this implies Goldbach's conjecture.

			a(3) = 1 since 2 + phi(1) = 3 and 2*3 - 3 = 3 are both prime.
a(20) = 1 since 11 + phi(9) = 17 and 2*20 - 17 = 23 are both prime.
a(22) = 1 since 1 + phi(21) = 13 and 2*22 - 13 = 31 are both prime.
a(24) = 1 since 9 + phi(15) = 17 and 2*24 - 17 = 31 are both prime.
a(76) = 1 since 67 + phi(9) = 73 and 2*76 - 73 = 79 are both prime.

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

Cf. A000010, A000040, A002372, A002375, A233547, A233918, A234200, A234246, A234360, A234470, A234475, A234514, A234567, A234615, A234694

f[n_,k_]:=k+EulerPhi[n-k]
p[n_,k_]:=PrimeQ[f[n,k]]&&PrimeQ[2n-f[n,k]]
a[n_]:=a[n]=Sum[If[p[n,k],1,0],{k,1,n-1}]
Table[a[n],{n,1,100}]

A234963 Number of ways to write n = k + m with k > 0 and m > 2 such that C(2*sigma(k) + phi(m), sigma(k) + phi(m)/2) - 1 is prime, where sigma(k) is the sum of all positive divisors of k and phi(.) is Euler's totient function.

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Jan 01 2014

nonn

Conjecture: a(n) > 0 for all n >= 180.
Clearly, this implies that there are infinitely many primes of the form C(2*n,n) - 1. We have verified the conjecture for n up to 10000.
Note that every n = 400, ..., 9123 can be written as k + m with k > 0 and m > 0 such that f(k, m) = sigma(k) + phi(m) is even and C(f(k, m) + 2, f(k, m)/2 + 1) + 1 is prime, but this fails for n = 9124.

			a(5) = 1 since 5 = 1 + 4 with C(2*sigma(1) + phi(4), sigma(1) + phi(4)/2) - 1 = C(4, 2) - 1 = 5 prime.
a(28) = 1 since 28 = 2 + 26 with C(2*sigma(2) + phi(26), sigma(2) + phi(26)/2) - 1 = C(18, 9) - 1 = 48619 prime.

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

Cf. A000010, A000040, A000203, A000984, A066726, A066699, A232270, A233544, A234451, A234470, A234503, A234514, A234567, A234615.

sigma[n_] := DivisorSigma[1, n];
f[n_,k_] := Binomial[2*sigma[k] + EulerPhi[n-k], sigma[k] + EulerPhi[n-k]/2] - 1;
a[n_] := Sum[If[PrimeQ[f[n,k]], 1, 0], {k, 1, n-3}];
Table[a[n], {n, 1, 100}]

A234809 a(n) = |{0 < k < n: p = k + phi(n-k) and 2*(n-p) + 1 are both prime}|, where phi(.) is Euler's totient function.

Original entry on oeis.org

0, 0, 1, 2, 1, 3, 1, 4, 1, 1, 1, 5, 3, 7, 3, 1, 1, 7, 5, 9, 4, 2, 1, 9, 5, 2, 4, 3, 1, 10, 5, 14, 2, 2, 2, 1, 6, 14, 5, 4, 1, 15, 5, 16, 5, 5, 3, 17, 8, 4, 5, 6, 3, 17, 7, 5, 2, 6, 6, 17, 11, 25, 3, 5, 3, 1, 11, 25, 4, 4, 4, 22, 10, 26, 6, 7, 8, 3, 9, 26, 7, 9, 6, 25, 8, 3, 7, 9, 10, 25, 15, 6, 2, 9, 9, 2, 13, 29, 3, 7

Offset: 1

Zhi-Wei Sun, Dec 30 2013

nonn

Conjecture: a(n) > 0 for all n > 2.
Clearly, this implies Lemoine's conjecture which states that any odd number 2*n + 1 > 5 can be written as 2*p + q with p and q both prime.
See also A234808 for a similar conjecture.

			a(5) = 1 since 1 + phi(4) = 3 and 2*(5-3) + 1 = 5 are both prime.
a(16) = 1 since 7 + phi(9) = 13 and 2*(16-13) + 1 = 7 are both prime.
a(41) = 1 since 7 +phi(34) = 23 and 2*(41-23) + 1 = 37 are both prime.
a(156) = 1 since 131 + phi(25) = 151 and 2*(156-151) + 1 = 11 are both prime.

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

Cf. A000010, A000040, A046927, A234470, A234475, A234514, A234567, A234615, A234694, A234808

f[n_,k_]:=k+EulerPhi[n-k]
p[n_,k_]:=PrimeQ[f[n,k]]&&PrimeQ[2*(n-f[n,k])+1]
a[n_]:=a[n]=Sum[If[p[n,k],1,0],{k,1,n-1}]
Table[a[n],{n,1,100}]

A234900 Primes p with P(p+1) also prime, where P(.) is the partition function (A000041).

Original entry on oeis.org

2, 3, 5, 131, 167, 211, 439, 2731, 3167, 3541, 4261, 7457, 8447, 18289, 22669, 23201, 23557, 35401, 44507, 76781, 88721, 108131, 126097, 127079, 136319, 141359, 144139, 159169, 164089, 177487, 202627, 261757, 271181, 282911, 291971, 307067, 320561, 389219, 481589, 482627, 602867, 624259, 662107, 682361, 818887, 907657, 914189, 964267, 1040191, 1061689

Offset: 1

Zhi-Wei Sun, Jan 01 2014

nonn

It seems that this sequence contains infinitely many terms.

See also A234569 for a similar sequence.

			a(1) = 2 since P(2+1) = 3 is prime.
a(2) = 3 since P(3+1) = 5 is prime.
a(3) = 5 since P(5+1) = 11 is prime.

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

Cf. A000040, A000041, A049575, A233346, A234470, A234514, A234530, A234567, A234569, A234615, A234644.

p[k_]:=p[k]=PrimeQ[PartitionsP[Prime[k]+1]]
n=0;Do[If[p[k],n=n+1;Print[n," ",Prime[k]]],{k,1,10000}]

cp's OEIS Frontend

A234530 Primes p with q(p) + 1 also prime, where q(.) is the strict partition function (A000009).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A234569 Primes p with P(p-1) also prime, where P(.) is the partition function (A000041).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A234644 Primes p with q(p) - 1 also prime, where q(.) is the strict partition function (A000009).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A235343 a(n) = |{0 < k < n: f(n,k) - 1, f(n,k) + 1 and q(f(n,k)) + 1 are all prime with f(n,k) = phi(k) + phi(n-k)/4}|, where phi(.) is Euler's totient function, and q(.) is the strict partition function (A000009).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A235358 a(n) = |{0 < k < n: g(n,k) - 1, g(n,k) + 1 and q(g(n,k)) - 1 are all prime with g(n,k) = phi(k) + phi(n-k)/8}|, where phi(.) is Euler's totient function and q(.) is the strict partition function (A000009).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A234647 Primes of the form q(p) - 1, where p is a prime and q(.) is the strict partition function (A000009).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A234808 a(n) = |{0 < k < n: p = k + phi(n-k) and 2*n - p are both prime}|, where phi(.) is Euler's totient function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A234963 Number of ways to write n = k + m with k > 0 and m > 2 such that C(2*sigma(k) + phi(m), sigma(k) + phi(m)/2) - 1 is prime, where sigma(k) is the sum of all positive divisors of k and phi(.) is Euler's totient function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs