OFFSET
1,4
COMMENTS
Largest m < n such that b^m == b^n (mod n) for every integer b.
LINKS
Altug Alkan, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[n - CarmichaelLambda@ n, {n, 83}] (* Michael De Vlieger, Oct 01 2016 *)
PROG
(PARI) a(n) = n - lcm(znstar(n)[2]); \\ Altug Alkan, Oct 01 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Oct 01 2016
EXTENSIONS
More terms from Altug Alkan, Oct 01 2016
STATUS
approved