OFFSET
1,4
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = ccc(n) mod n = A050436(n) mod n.
MATHEMATICA
MapIndexed[Mod[#1, First@ #2] &, #] &@ Nest[Values@ KeySelect[ MapIndexed[ First@ #2 -> #1 &, #], CompositeQ] &, Select[Range@ 183, CompositeQ], 2] (* Michael De Vlieger, Jul 22 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 08 2002
STATUS
approved