A233307 -id:A233307 - cp's OEIS frontend

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

2, 5, 13, 17, 29, 37, 41, 53, 61, 73, 89, 101, 109, 113, 137, 149, 157, 193, 229, 241, 349, 373, 509, 709, 733, 1033, 1049, 1213, 1249, 1453, 1493, 1669, 1789, 2141, 2237, 2341, 2917, 3037, 3137, 3361, 4217, 5801, 5897, 6029, 6073, 8821, 10301, 10937, 11057, 18229, 18289, 19249, 20173, 20341, 20389, 21017, 24001, 30977, 36913, 42793

Offset: 1

Zhi-Wei Sun, Dec 07 2013

nonn

Conjecture: The sequence contains infinitely many terms.

This follows from part (i) of the conjecture in A233307. Similarly, the conjecture in A232504 implies that there are infinitely many primes of the form p(k) + q(m) with k and m positive integers.

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

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

Cf. A000009, A000040, A000041, A002313, A232504, A233307.

SQ[n_]:=SQ[n]=IntegerQ[Sqrt[n]]
n=0
Do[If[Mod[Prime[m]+1,4]>0,Do[If[PartitionsP[j]>=Sqrt[Prime[m]],Goto[aa],
If[SQ[Prime[m]-PartitionsP[j]^2]==False,Goto[bb],Do[If[PartitionsQ[k]^2==Prime[m]-PartitionsP[j]^2,
n=n+1;Print[n," ",Prime[m]];Goto[aa]];If[PartitionsQ[k]^2>Prime[m]-PartitionsP[j]^2,Goto[bb]];Continue,{k,1,2*Sqrt[Prime[m]]}]]];
Label[bb];Continue,{j,1,Sqrt[Prime[m]]}]];
Label[aa];Continue,{m,1,4475}]

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.

Original entry on oeis.org

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

A234514 Number of ways to write n = k + m with k > 0 and m > 0 such that p = k + phi(m)/2 and q(p) + 1 are both prime, where phi(.) is Euler's totient function, and q(.) is the strict partition function (A000009).

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Dec 27 2013

nonn

Conjecture: (i) a(n) > 0 for all n > 12.
(ii) For any integer n > 4, there is a prime p < n - 2 such that q(p + phi(n-p)/2) + 1 is prime.
Clearly, part (i) of the conjecture implies that there are infinitely many primes p with q(p) + 1 prime (cf. A234530).
We have verified part (i) for n up to 10^5.

			a(11) = 1 since 11 = 1 + 10 with 1 + phi(10)/2 = 3 and q(3) + 1 = 3 both prime.
a(27) = 1 since 27 = 7 + 20 with 7 + phi(20)/2 = 11 and q(11) + 1 = 13 both prime.
a(30) = 1 since 30 = 8 + 22 with 8 + phi(22)/2 = 13 and q(13) + 1 = 19 both prime.
a(38) = 1 since 38 = 21 + 17 with 21 + phi(17)/2 = 29 and q(29) + 1 = 257 both prime.
a(572) = 1 since 572 = 77 + 495 with 77 + phi(495)/2 = 197 and q(197) + 1 = 406072423 both prime.
a(860) = 1 since 860 = 523 + 337 with 523 + phi(337)/2 = 691 and q(691) + 1 = 712827068077888961 both prime.

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

Cf. A000009, A000010, A000040, A229835, A233307, A233390, A233417, A234451, A234470, A234475, A234503, A234504, A234530

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

A234309 a(n) = |{2 < k <= n/2: 2^{phi(k)} + 2^{phi(n-k)} - 1 is prime}|, where phi(.) is Euler's totient function.

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Dec 23 2013

nonn

Conjecture: (i) a(n) > 0 for all n > 5.
(ii) For any integer n > 1, 2^k +2^{phi(n-k)} - 1 is prime for some 0 < k < n, and 2^{sigma(j)} + 2^{phi(n-j)} - 1 is prime for some 0 < j < n, where sigma(j) is the sum of all positive divisors of j.
As phi(k) is even for any k > 2, part (i) of the conjecture implies that there are infinitely many primes of the form 4^a + 4^b - 1 with a and b positive integers (cf. A234310). Note that any Mersenne prime greater than 3 has the form 2^{2a+1} - 1 = 4^a + 4^a - 1.

			a(6) = 1 since 2^{phi(3)} + 2^{phi(3)} - 1 = 2^2 + 2^2 - 1 = 7 is prime.
a(7) = 1 since 2^{phi(3)} + 2^{phi(4)} - 1 = 2^2 + 2^2 - 1 = 7 is prime.
a(8) = 2 since 2^{phi(3)} + 2^{phi(5)} - 1 = 2^2 + 2^4 - 1 = 19 and 2^{phi(4)} + 2^{phi(4)} - 1 = 2^2 + 2^2 - 1 = 7 are both prime.

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

Cf. A000010, A000040, A000079, A000668, A233307, A233390, A233542, A233544, A233547, A233566, A233867, A233918, A234200, A234246, A234308, A234310, A234337, A234344, A234346, A234347, A234359, A234360, A234361

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

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

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

A236412 a(n) = |{0 < k < n: m = phi(k)/2 + phi(n-k)/8 is an integer with p(m)^2 + q(m)^2 prime}|, where phi(.) is Euler's totient, p(.) is the partition function (A000041) and q(.) is the strict partition function (A000009).

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Jan 24 2014

nonn

Conjecture: a(n) > 0 for all n > 17.
We have verified this for n up to 65000.
The conjecture implies that there are infinitely positive integers m with p(m)^2 + q(m)^2 prime. See A236413 for a list of such numbers m. See also A236414 for primes of the form p(m)^2 + q(m)^2.

			a(15) = 1 since phi(2)/2 + phi(13)/8 = 1/2 + 12/8 = 2 with p(2)^2 + q(2)^2 = 2^2 + 1^2 = 5 prime.
a(69) = 1 since phi(5)/2 + phi(64)/8 = 2 + 4 = 6 with p(6)^2 + q(6)^2 = 11^2 + 4^2 = 137 prime.
a(89) = 1 since phi(73)/2 + phi(16)/8 = 36 + 1 = 37 with p(37)^2 + q(37)^2 = 21637^2 + 760^2 = 468737369 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. A000010, A000040, A000041, A233307, A236374, A236413, A236414.

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

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

A234514 Number of ways to write n = k + m with k > 0 and m > 0 such that p = k + phi(m)/2 and q(p) + 1 are both 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

A234309 a(n) = |{2 < k <= n/2: 2^{phi(k)} + 2^{phi(n-k)} - 1 is prime}|, where phi(.) is Euler's totient function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

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

Programs