A076237 a(n) = A050435(n) mod n.

0, 0, 0, 0, 3, 3, 3, 1, 8, 8, 10, 9, 8, 8, 8, 7, 6, 6, 7, 8, 7, 6, 5, 4, 5, 4, 3, 4, 5, 4, 3, 4, 3, 2, 2, 2, 2, 1, 0, 0, 40, 0, 0, 43, 43, 44, 44, 45, 45, 45, 47, 48, 49, 50, 50, 50, 53, 53, 53, 55, 55, 55, 55, 55, 56, 56, 56, 56, 56, 56, 57, 58, 59, 59, 60, 62, 63, 63, 64, 65, 65, 65, 67

Offset: 1

Author

Labos Elemer, Oct 08 2002

Keywords

• nonn

Crossrefs

Cf. A002808, A050435-A050439, A065860, A076236-A076239.

Programs

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 *)

Formula

a(n) = Mod[cc[n], n] = Mod[A050435(n), n]