OFFSET
1,3
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
MATHEMATICA
inverse[F_][1] := 1/F[1]; inverse[F_][n_] := -1/F[1] Sum[F[n/Divisors[n][[i]]]*inverse[F][Divisors[n][[i]]], {i, Length[Divisors[n]] - 1}]; Table[inverse[CarmichaelLambda][n], {n, 1, 331}];
PROG
(PARI) seq(n)={dirdiv(vector(n, n, n==1), vector(n, n, lcm(znstar(n).cyc)))} \\ Andrew Howroyd, Aug 05 2018
CROSSREFS
KEYWORD
sign
AUTHOR
José María Grau Ribas, Mar 23 2014
STATUS
approved