OFFSET
1,5
FORMULA
a(n) = Mod[cc[n], n] = Mod[A050435(n), n]
MATHEMATICA
Module[{cmps=Select[Range[300], CompositeQ], c2}, c2=Table[cmps[[cmps[[n]]]], {n, 100}]; Mod[#[[1]], #[[2]]]&/@Thread[{c2, Range[Length[c2]]}]] (* Harvey P. Dale, May 02 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 08 2002
STATUS
approved