|
|
A247601
|
|
Least positive integer m with pi(m*n) = phi(m), where pi(.) is the prime-counting function and phi(.) is Euler's totient function.
|
|
7
|
|
|
2, 1, 13, 31, 73, 181, 443, 2249, 238839, 6473, 30001, 40123, 108539, 251707, 637321, 7554079, 4124437, 241895689, 27067097, 69709723, 179992919, 1019958623, 1208198863, 3140421743, 8179002173
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Conjecture: a(n) exists for any n > 0.
This is motivated by Golomb's result that for any n > 1 there is a positive integer m with mn/pi(mn) = n (i.e., pi(mn) = m).
|
|
LINKS
|
|
|
EXAMPLE
|
a(3) = 13 since pi(3*13) = 12 = phi(13).
|
|
MATHEMATICA
|
Do[m=1; Label[aa]; If[PrimePi[n*m]==EulerPhi[m], Print[n, " ", m]; Goto[bb]]; m=m+1; Goto[aa];
Label[bb]; Continue, {n, 1, 18}]
Table[m = 1;
While[PrimePi[n*m] != EulerPhi[m], m++]; m, {n, 1, 12}] (* Robert Price, Sep 08 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|