A234344 -id:A234344 - cp's OEIS frontend

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

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

Offset: 1

Zhi-Wei Sun, Dec 26 2013

nonn

It might seem that a(n) > 0 for all n > 14, but a(43905) = 0. If a(n) > 0 infinitely often, then there are infinitely many primes of the form 3^m + 2.
Similarly, it might seem that for n > 26 there is a positive integer k < n such that m = phi(k)/2 + phi(n-k)/12 is an integer with 3^m - 2 prime, but n = 41213 is a counterexample.
See also A234451 and A236358 for similar sequences.

			a(15) = 1 since 15 = 1 + 14 with 3^(phi(1)/2 + phi(14)/12) + 2 = 3 + 2 = 5 prime.
a(23) = 1 since 23 = 10 + 13 with 3^(phi(10)/2 + phi(13)/12) + 2 = 3^3 + 2 = 29 prime.
a(24) = 1 since 24 = 3 + 21 with 3^(phi(3)/2 + phi(21)/12) + 2 = 3^2 + 2 = 11 prime.
a(37) = 1 since 37 = 9 + 28 with 3^(phi(9)/2 + phi(28)/12) + 2 = 3^4 + 2 = 83 prime.

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

Cf. A000010, A000040, A000244, A014232, A057735, A079363, A111974, A234344, A234346, A234347, A234361, A234451, A234470, A234475, A234504, A236358.

f[n_,k_]:=3^(EulerPhi[k]/2+EulerPhi[n-k]/12)+2
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

A234503 Number of ways to write n = k + m with k > 0 and m > 0 such that 3^(phi(k)/2 + phi(m)/12) + 2 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