|
|
A250404
|
|
Numbers n such that the set of all distinct values of phi of all divisors of n equals the set of all proper divisors of n+1 where phi is the Euler totient function (A000010).
|
|
1
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Numbers n such that {distinct values of phi(d); d|n} == {d; d|(n+1), d<(n+1)}.
Conjecture: next and last term is 4294967295.
Sequence differs from A203966 because 83623935 is not in this sequence.
|
|
LINKS
|
|
|
EXAMPLE
|
2 is in the sequence because {distinct values of phi(d); d|2} == {1} == {d; d|2, d<2}.
15 is in the sequence because {distinct values of phi(d); d|15} == {1, 2, 4, 8} == {d; d|16, d<16}.
|
|
PROG
|
(Magma) [n: n in [1..100000] | Set([EulerPhi(d): d in Divisors(n)]) eq Set([d: d in Divisors(n+1) | d lt n+1 ])]
(PARI) isok(n) = {sphi = []; fordiv(n, d, sphi = Set(concat(sphi, eulerphi(d)))); sphi == setminus(Set(divisors(n+1)), Set(n+1)); } \\ Michel Marcus, Nov 23 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|