A233346 -id:A233346 - cp's OEIS frontend

A234470 Number of ways to write n = k + m with k > 0 and m > 2 such that p(k + phi(m)/2) is prime, where p(.) is the partition function (A000041) and phi(.) is Euler's totient function.

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

Offset: 1

Zhi-Wei Sun, Dec 26 2013

nonn

Conjecture: a(n) > 0 if n > 3 is not among 27, 34, 50, 61, 74, 78, 115, 120, 123, 127.

This implies that there are infinitely many primes in the range of the partition function p(n).

			a(26) = 1 since 26 = 2 + 24 with p(2 + phi(24)/2) = p(6) = 11 prime.
a(54) = 1 since 54 = 27 + 27 with p(27 + phi(27)/2) = p(36) = 17977 prime.
a(73) = 1 since 73 = 1 + 72 with p(1 + phi(72)/2) = p(36) = 17977 prime.
a(110) = 1 since 110 = 65 + 45 with p(65 + phi(45)/2) = p(77) = 10619863 prime.
a(150) = 1 since 150 = 123 + 27 with p(123 + phi(27)/2) = p(132) = 6620830889 prime.
a(170) = 1 since 170 = 167 + 3 with p(167 + phi(3)/2) = p(168) = 228204732751 prime.

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

Cf. A000010, A000040, A000041, A049575, A232504, A233307, A233346, A233918, A234200, A234246, A234309, A234337, A234344, A234347, A234359, A234360, A234451, A234475

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

A234310 Primes of the form 4^k + 4^m - 1, where k and m are positive integers.

Original entry on oeis.org

7, 19, 31, 67, 79, 127, 271, 1039, 1087, 1279, 4099, 4111, 4159, 5119, 8191, 16447, 20479, 65539, 65551, 65599, 81919, 131071, 262147, 262399, 263167, 266239, 524287, 1049599, 1114111, 1310719, 4194319, 4194559, 4195327, 16842751, 17825791, 67108879

Offset: 1

Zhi-Wei Sun, Dec 23 2013

nonn

Clearly each term is congruent to 1 modulo 6.
By the conjecture in A234309, this sequence should have infinitely many terms.
Note that any Mersenne prime greater than 3 has the form 2^{2*k+1} - 1 = 4^k + 4^k - 1, where k is a positive integer.

			a(1) = 7 since 7 = 4^1 + 4^1 - 1 is prime.
a(2) = 19 since 19 = 4^1 + 4^2 - 1 is prime.
a(3) = 31 since 31 = 4^2 + 4^2 - 1 is prime.

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

Cf. A000040, A000302, A000668, A233346, A233393, A234309.

n=0;Do[If[PrimeQ[4^k+4^m-1],n=n+1;Print[n," ",4^m+4^k-1]],{m,1,250},{k,1,m}]

for(k=1,30,for(m=1,k,if(ispseudoprime(t=4^k+4^m-1),print1(t", ")))) \\ Charles R Greathouse IV, Dec 23 2013

A234475 Number of ways to write n = k + m with 2 < k <= m such that q(phi(k)*phi(m)/4) + 1 is prime, 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, 1, 1, 2, 2, 3, 3, 4, 4, 3, 4, 5, 5, 4, 7, 7, 6, 5, 5, 7, 3, 6, 7, 7, 5, 7, 4, 8, 4, 7, 7, 8, 7, 4, 5, 5, 4, 4, 5, 5, 6, 5, 4, 5, 3, 5, 4, 6, 6, 4, 6, 5, 4, 3, 6, 4, 9, 4, 8, 6, 7, 6, 8, 4, 7, 4, 7, 8, 9, 2, 3, 1, 8, 6, 9, 6, 6, 6, 6, 4, 7, 5, 8, 8, 4, 5, 5, 9, 7, 10, 4, 10, 3, 7, 8, 6

Offset: 1

Zhi-Wei Sun, Dec 26 2013

nonn

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

This implies that there are infinitely many primes p with p - 1 a term of A000009.

			a(6) = 1 since 6 = 3 + 3 with q(phi(3)*phi(3)/4) + 1 = q(1) + 1 = 2 prime.
a(76) = 1 since 76 = 18 + 58 with q(phi(18)*phi(58)/4) + 1 = q(42) + 1 = 1427 prime.
a(197) = 1 since 197 = 4 + 193 with q(phi(4)*phi(193)/4) + 1 = q(96) + 1 = 317789.
a(356) = 1 since 356 = 88 + 268 with q(phi(88)*phi(268)/4) + 1 = q(1320) + 1 = 35940172290335689735986241 prime.

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

Cf. A000009, A000010, A000040, A232504, A233307, A233346, A233547, A233390, A233393, A234309, A234310, A234337, A234344, A234347, A234359, A234360, A234361, A234451, A234470, A234514, A234530, A234567, A234569

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

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

Original entry on oeis.org

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

A233390 a(n) = |{0 < k < n: 2^k - 1 + q(n-k) is prime}|, where q(.) is the strict partition function (A000009).

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Dec 08 2013

nonn

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

We have verified this for n up to 150000. For n = 124669, the least positive integer k with 2^k - 1 + q(n-k) prime is 13413.

			a(6) = 1 since 2^2 - 1 + q(4) = 3 + 2 = 5 is prime.
a(10) = 1 since 2^4 - 1 + q(6) = 15 + 4 = 19 is prime.
a(41) = 1 since 2^{16} - 1 + q(25) = 65535 + 142 = 65677 is prime.
a(127) = 1 since 2^{21} - 1 + q(106) = 2097151 + 728260 = 2825411 is prime.
a(153) = 1 since 2^{70} - 1 + q(83) = 1180591620717411303423 + 101698 = 1180591620717411405121 is prime.
a(164) = 1 since 2^{26} - 1 + q(138) = 67108863 + 8334326 = 75443189 is prime.

Zhi-Wei Sun, Table of n, a(n) for n = 1..8000
Z.-W. Sun, On a^n+ bn modulo m, arXiv preprint arXiv:1312.1166 [math.NT], 2013-2014.
Z.-W. Sun, Problems on combinatorial properties of primes, arXiv:1402.6641 [math.NT], 2014-2017.

Cf. A000009, A000040, A000225, A233307, A233346, A233359, A233360, A233393, A233417, A233439.

a[n_]:=Sum[If[PrimeQ[2^k-1+PartitionsQ[n-k]],1,0],{k,1,n-1}]
Table[a[n],{n,1,100}]

A233393 Primes of the form 2^k - 1 + q(m) with k > 0 and m > 0, where q(.) is the strict partition function (A000009).

Original entry on oeis.org

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 37, 41, 43, 47, 53, 61, 67, 71, 73, 79, 83, 101, 107, 109, 127, 131, 137, 139, 149, 157, 167, 173, 181, 191, 193, 199, 223, 229, 257, 263, 269, 271, 277, 293, 311, 331, 347, 349, 359, 383, 397, 421, 449, 463, 467, 479, 521, 523, 557, 587

Offset: 1

Zhi-Wei Sun, Dec 08 2013

nonn

Conjecture: The sequence has infinitely many terms.

This follows from the conjecture in A233390.

			a(1) = 2 since 2^1 - 1 + q(1) = 1 + 1 = 2.
a(2) = 3 since 2^1 - 1 + q(3) = 1 + 2 = 3.
a(3) = 5 since 2^2 - 1 + q(3) = 3 + 2 = 5.

Zhi-Wei Sun, Table of n, a(n) for n = 1..542
Z.-W. Sun, On a^n+ bn modulo m, arXiv preprint arXiv:1312.1166 [math.NT], 2013-2014.

Cf. A000040, A000225, A232504, A233307, A233346, A233359, A233360, A233390.

Pow[n_]:=Pow[n]=Mod[n,2]==0&&2^(IntegerExponent[n,2])==n
n=0
Do[Do[If[Pow[Prime[m]-PartitionsQ[k]+1],
n=n+1;Print[n," ",Prime[m]];Goto[aa]];If[PartitionsQ[k]>=Prime[m],Goto[aa]];Continue,{k,1,2*Prime[m]}];
Label[aa];Continue,{m,1,110}]

A233359 a(n) = |{0 < k < n: L(k) + q(n-k) is prime}|, where L(k) is the k-th Lucas number (A000204), and q(.) is the strict partition function (A000009).

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Dec 08 2013

nonn

Conjecture: a(n) > 0 for all n > 1.
We have verified this for n up to 60000.
Note that for n = 19976 there is no k = 0,...,n such that F(k) + q(n-k) is prime, where F(0), F(1), ... are the Fibonacci numbers.

			a(7) = 2 since L(1) + q(6) = 1 + 4 = 5 and L(6) + q(1) = 18 + 1 = 19 are both prime.
a(17) = 1 since L(13) + q(4) = 521 + 2 = 523 is prime.
a(21) = 1 since L(5) + q(16) = 11 + 32 = 43 is prime.
a(42) = 1 since L(22) + q(20) = 39603 + 64 = 39667 is prime.
a(54) = 1 since L(8) + q(46) = 47 + 2304 = 2351 is prime.
a(86) = 1 since L(67) + q(19) = 100501350283429 + 54 = 100501350283483 is prime.

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

Cf. A000009, A000032, A000040, A000204, A233307, A233346, A233360.

a[n_]:=Sum[If[PrimeQ[LucasL[k]+PartitionsQ[n-k]],1,0],{k,1,n-1}]
Table[a[n],{n,1,100}]

A233417 a(n) = |{0 < k <= n/2: q(k)*q(n-k) + 1 is prime}|, where q(.) is the strict partition function (A000009).

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Dec 09 2013

nonn

Conjecture: (i) a(n) > 0 for all n > 1. Similarly, for any integer n > 5, there is a positive integer k < n with q(k)*q(n-k) - 1 prime.

(ii) Let n > 1 be an integer. Then p(k) + q(n-k)^2 is prime for some 0 < k < n, where p(.) is the partition function (A000041). If n is not equal to 8, then k^3 + q(n-k)^2 is prime for some 0 < k < n.

			a(14) = 1 since q(1)*q(13) + 1 = 1*18 + 1 = 19 is prime.
a(17) = 1 since q(4)*q(13) + 1 = 2*18 + 1 = 37 is prime.
a(27) = 1 since q(13)*q(14) + 1 = 18*22 + 1 = 397 is prime.

Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
Z.-W. Sun, On a^n+ bn modulo m, arXiv preprint arXiv:1312.1166 [math.NT], 2013-2014.

Cf. A000009, A000040, A232504, A233307, A233346, A233359, A233390, A233393.

a[n_]:=Sum[If[PrimeQ[PartitionsQ[k]*PartitionsQ[n-k]+1],1,0],{k,1,n/2}]
Table[a[n],{n,1,100}]

A234572 Primes of the form P(p-1), where p is a prime and P(.) is the partition function (A000041).

Original entry on oeis.org

2, 5, 11, 17977, 790738119649411319, 2058791472042884901563, 27833079238879849385687, 8121368081058512888507057, 675004412390512738195023734124239, 1398703012615213588677365804960180341, 16193798232344933888778097136641377589301, 204931453786129197483756438132982529754356479553, 3019564607799532159016586951616642980389816614848623, 22757918197082858017617136646280039394687006502870793231847, 1078734573992480956821414895441907729656949308800686938161281

Offset: 1

Zhi-Wei Sun, Dec 28 2013

nonn

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

See A234569 for a list of known primes p with P(p-1) also prime.

			a(1) = 2 since 2 = P(3-1) with 2 and 3 both prime.
a(2) = 5 since 5 = P(5-1) with 5 prime.
a(3) = 11 since 11 = P(7-1) with 7 and 11 both prime.

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

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

p[n_]:= A234569(n)
Table[PartitionsP[p[n]-1],{n,1,15}]

a(n) = A000041(A234569(n)-1).

cp's OEIS Frontend

A234470 Number of ways to write n = k + m with k > 0 and m > 2 such that p(k + phi(m)/2) is prime, where p(.) is the partition function (A000041) and phi(.) is Euler's totient function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A234310 Primes of the form 4^k + 4^m - 1, where k and m are positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A234475 Number of ways to write n = k + m with 2 < k <= m such that q(phi(k)*phi(m)/4) + 1 is prime, where phi(.) is Euler's totient function and q(.) is the strict partition function (A000009).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

A233390 a(n) = |{0 < k < n: 2^k - 1 + q(n-k) is prime}|, where q(.) is the strict partition function (A000009).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A233393 Primes of the form 2^k - 1 + q(m) with k > 0 and m > 0, where q(.) is the strict partition function (A000009).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A233359 a(n) = |{0 < k < n: L(k) + q(n-k) is prime}|, where L(k) is the k-th Lucas number (A000204), and q(.) is the strict partition function (A000009).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs