A234309 -id:A234309 - cp's OEIS frontend

A234451 Number of ways to write n = k + m with k > 0 and m > 0 such that 2^(phi(k)/2 + phi(m)/6) + 3 is prime, where phi(.) is Euler's totient function.

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

Offset: 1

Zhi-Wei Sun, Dec 26 2013

nonn

Conjecture: (i) a(n) > 0 for all n > 9. Also, any integer n > 13 can be written as k + m with k > 0 and m > 0 such that 2^(phi(k)/2 + phi(m)/6) - 3 is prime.
(ii) Each integer n > 25 can be written as k + m with k > 0 and m > 0 such that 3*2^(phi(k)/2 + phi(m)/8) + 1 (or 3*2^(phi(k)/2 + phi(m)/12) + 1 when n > 38) is prime. Also, any integer n > 14 can be written as k + m with k > 0 and m > 0 such that 3*2^(phi(k)/2 + phi(m)/12) - 1 is prime.
This conjecture implies that there are infinitely many primes in any of the four forms 2^n + 3, 2^n - 3, 3*2^n + 1, 3*2^n - 1.
We have verified the conjecture for n up to 50000.

			a(10) = 1 since 10 = 3 + 7 with 2^(phi(3)/2 + phi(7)/6) + 3 = 7 prime.
a(11) = 1 since 11 = 4 + 7 with 2^(phi(4)/2 + phi(7)/6) + 3 = 7 prime.
a(12) = 2 since 12 = 3 + 9 = 5 + 7 with 2^(phi(3)/2 + phi(9)/6) + 3 = 7 and 2^(phi(5)/2 + phi(7)/6) + 3 = 11 both prime.
a(769) = 1 since 769 = 31 + 738 with 2^(phi(31)/2 + phi(738)/6) + 3 = 2^(55) + 3 prime.
a(787) = 1 since 787 = 112 + 675 with 2^(phi(112)/2 + phi(675)/6) + 3 = 2^(84) + 3 prime.
a(867) = 1 since 867 = 90 + 777 with 2^(phi(90)/2 + phi(777)/6) + 3 = 2^(84) + 3 prime.
a(869) = 1 since 869 = 51 + 818 with 2^(phi(51)/2 + phi(818)/6) + 3 = 2^(84) + 3 prime.
a(913) = 1 since 913 = 409 + 504 with 2^(phi(409)/2 + phi(504)/6) + 3 = 2^(228) + 3 prime.
a(1085) = 1 since 1085 = 515 + 570 with 2^(phi(515)/2 + phi(570)/6) + 3 = 2^(228) + 3 prime.

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

Cf. A000010, A000040, A000079, A050415, A057733, A234309, A234310, A234337, A234344, A234346, A234347, A234359, A234360, A234361, A234388, A234399, A234470, A236358.

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

A234504 Number of ways to write n = k + m with k > 0 and m > 0 such that 2^(phi(k) + phi(m)/4) - 5 is prime, where phi(.) is Euler's totient function.

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Dec 26 2013

nonn

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

We have verified this for n up to 50000. The conjecture implies that there are infinitely many primes of the form 2^n - 5.

			a(15) = 2 since 2^(phi(2) + phi(13)/4) - 5 = 2^4 - 5 = 11 and 2^(phi(3) + phi(12)/4) - 5 = 2^3 - 5 = 3 are both prime.

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

Cf. A000010, A000040, A000079, A050522, A156560, A234309, A234451, A234470, A234475, A234503, A236358.

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

A234388 Primes of the form 2^k*(2^{phi(m)} - 1) + 1, where k and m are positive integers, and phi(.) is Euler's totient function.

Original entry on oeis.org

3, 5, 7, 13, 17, 31, 61, 97, 127, 193, 241, 257, 769, 1009, 1021, 2017, 4093, 7681, 8161, 8191, 12289, 15361, 16369, 16381, 32257, 61441, 64513, 65521, 65537, 131041, 131071, 523777, 524287, 786433, 1032193, 1048573, 4194301, 8257537, 8380417, 16515073, 16760833, 16776961, 16777153, 16777213, 67043329, 132120577, 134215681, 268369921, 536870401, 1073479681, 2013265921, 2113929217, 2146959361, 2147483137, 2147483647, 3221225473, 4293918721, 17175674881, 34359214081, 34359738337

Offset: 1

Zhi-Wei Sun, Dec 25 2013

nonn

Conjecture: (i) Any integer n > 1 can be written as k + m with k > 0 and m > 0 such that 2^k*(2^{phi(m)} - 1) + 1 is prime.
(ii) Each integer n > 2 can be written as k + m with k > 0 and m > 0 such that 2^k*(2^{phi(m)} - 1) - 1 is prime.
Part (i) of the conjecture implies that this sequence has infinitely many terms. See also A234399.
Note that the sequence contains all Fermat primes and Mersenne primes since 2^k + 1 = 2^k*(2^{phi(1)} - 1) + 1 and 2^p - 1 = 2*(2^{phi(p)} - 1) + 1, where k is a positive integer and p is a prime.

			a(1) = 3 since 2*(2^{phi(1)} - 1) + 1 = 3 is prime.
a(2) = 5 since 2^2*(2^{phi(1)} - 1) + 1 = 5 is prime.
a(3) = 7 since 2*(2^{phi(3)} - 1) + 1 = 7 is prime.

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

Cf. A000010, A000040, A000079, A000668, A019434, A152449, A234309, A234310, A234337, A234344, A234346, A234347, A234359, A234360, A234361, A234399

S:=Intersection[Union[Table[EulerPhi[k],{k,1,5000}]],Table[k,{k,1,500}]]
n=0;Do[If[MemberQ[S,k]&&PrimeQ[2^m-2^(m-k)+1],n=n+1;Print[n," ",2^m-2^(m-k)+1]],{m,1,500},{k,1,m-1}]

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

Original entry on oeis.org

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

Offset: 1

Zhi-Wei Sun, Dec 25 2013

nonn

Conjecture: a(n) > 0 for all n > 1.
See also the conjecture in A234388.
The conjecture is false. a(5962) = 0. - Jason Yuen, Nov 04 2024

			a(7) = 2 since 2^1*(2^phi(6)-1) + 1 = 2*3 + 1 = 7 and 2^2*(2^phi(5)-1) + 1 = 4*15 + 1 = 61 are both prime.

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

Cf. A000010, A000040, A000079, A234309, A234310, A234337, A234344, A234346, A234347, A234359, A234360, A234361, A234388

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

a(n) = sum(k=1,n-1,ispseudoprime(2^k*(2^eulerphi(n-k)-1)+1)) \\ Jason Yuen, Nov 04 2024

cp's OEIS Frontend

A234451 Number of ways to write n = k + m with k > 0 and m > 0 such that 2^(phi(k)/2 + phi(m)/6) + 3 is prime, where phi(.) is Euler's totient function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A234504 Number of ways to write n = k + m with k > 0 and m > 0 such that 2^(phi(k) + phi(m)/4) - 5 is prime, where phi(.) is Euler's totient function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A234388 Primes of the form 2^k*(2^{phi(m)} - 1) + 1, where k and m are positive integers, and phi(.) is Euler's totient function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI