login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A233466 Numbers k such that phi(k) = (k-5)/2. 0
165, 64005, 6992962170388485, 18446744047939747845 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
According to the following theorem I discovered recently, the 20-digit number 18446744047939747845 is in the sequence.
Theorem: If k and m are integers, k < 6, and p = 2^2^k + m is a prime such that p does not divide 2^2^k-1, then p*(2^2^k-1) is a solution to the equation phi(x) = (x+m)/2.
Note that m cannot be -1 and for k < 6, 2^2^k-1 is the product of the first k Fermat primes.
Take m=-5; since 2^2^2-5, 2^2^3-5 and 2^2^5-5 are prime we get three terms of the sequence.
Take m=1; since 2^2^0+1, 2^2^1+1, 2^2^2+1, 2^2^3+1 and 2^2^4+1 are prime (Fermat primes) we get five terms of the sequence A050474.
Conjecture (i): There is no solution to the equation phi(x) = (x-1)/2.
Conjecture (ii): The sequence has only three terms and a(3) = (2^2^5-5) * (2^2^5-1) = 18446744047939747845.
Conjecture (i) is a part of Lehmer's totient problem. Conjecture (ii) is disproved with the term a(3) = 6992962170388485 = 3 * 5 * 17 * 353 * 929 * 83623931. - Max Alekseyev, Oct 28 2023
a(5) <= 202317618492499837497376768005 = 3 * 5 * 17 * 257 * 65951 * 10414721 * 4494603392933. - Max Alekseyev, Oct 30 2023
LINKS
EXAMPLE
phi(165) = 80 = (165-5)/2.
MATHEMATICA
Do[If[EulerPhi[n]==1/2(n-5), Print[n]], {n, 1, 70001, 4}]
PROG
(PARI) is(n)=eulerphi(n)==(n-5)/2 \\ Charles R Greathouse IV, Jan 20 2014
(Python)
from itertools import islice, count
from sympy import totient
def A233466gen(): return filter(lambda n:2*totient(n) == n-5, count(1, 2))
A233466_list = list(islice(A233466gen(), 2)) # Chai Wah Wu, Dec 15 2021
CROSSREFS
Subsequence of A083255. - R. J. Mathar, Jan 13 2014
Sequence in context: A046178 A176018 A184287 * A203183 A184128 A015982
KEYWORD
nonn,more,hard,nice
AUTHOR
Farideh Firoozbakht, Dec 26 2013
EXTENSIONS
Missing term a(3) inserted, a(4) confirmed by Max Alekseyev, Oct 28 2023
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 23 13:02 EDT 2024. Contains 371913 sequences. (Running on oeis4.)