login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A319313
a(n) is the least integer m such that A047994(m) = ((n-2)/n)*m where A047994 is the unitary totient function, or 0 if there is no such m.
0
6, 2, 20, 3, 1008, 4, 72, 5, 4400, 144, 835660800, 7, 10800, 8, 272, 9, 9849600, 400, 208039104, 11, 145520912351232000000, 64281600, 3608344625286776094720000, 13, 1296, 84672, 90944, 129600
OFFSET
3,1
LINKS
Yasutoshi Kohmoto, UnitaryPhi, SeqFan list, Aug-Sep 2018.
FORMULA
a(2n) = A318842(n).
PROG
(PARI) \\ uses the "solve_uphi pari code", see A318842 links
a(n) = {my(lim = 1, v); while (1, v = solve_uphi(n-2, n, lim); if (#v, return (v[1])); lim *= 10; ); }
CROSSREFS
Cf. A047994 (unitary totient).
Sequence in context: A248269 A081778 A055943 * A277275 A213503 A169632
KEYWORD
nonn,more,changed
AUTHOR
Michel Marcus, Sep 17 2018
STATUS
approved