OFFSET
0,1
COMMENTS
REFERENCES
V. S. Abramovich (Shevelev), On an analog of the Euler function, Proceeding of the North-Caucasus Center of the Academy of Sciences of the USSR (Rostov na Donu), 2 (1981), 13-17.
Vladimir Shevelev, Multiplicative functions in the Fermi-Dirac arithmetic, Izvestia Vuzov of the North-Caucasus region, Nature sciences 4 (1996), 28-43.
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..1000
Simon Litsyn and Vladimir Shevelev, On factorization of integers with restrictions on the exponent, INTEGERS: Electronic Journal of Combinatorial Number Theory, 7 (2007), #A33, 1-36.
MAPLE
A176472 := proc(n) local m; for m from 2 do if A064380(m) - numtheory[phi](m) = n then return m; end if; end do: end proc: # R. J. Mathar, Jun 16 2010
MATHEMATICA
infCoprimeQ[n1_, n2_] := Module[{g = GCD[n1, n2]}, If[g == 1, True, AllTrue[FactorInteger[g][[All, 1]], BitAnd @@ IntegerExponent[{n1, n2}, #] == 0&]]];
A064380[n_] := Sum[Boole[infCoprimeQ[j, n]], {j, 1, n - 1}];
a[n_] := a[n] = For[m = 2, True, m++, If[A064380[m] - EulerPhi[m] == n, Return[m]]];
Table[Print[n, " ", a[n]]; a[n], {n, 0, 100}] (* Jean-François Alcover, Sep 05 2023, after Amiram Eldar in A064380 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 18 2010
EXTENSIONS
a(2), a(3), a(8) and a(15) corrected and sequence extended by R. J. Mathar, Jun 16 2010
STATUS
approved