A076237 Remainder when 2nd order composite cc[n]=A050435[n] is divided by 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,5

Links

Table of n, a(n) for n=1..83.

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

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

Sequence in context: A243095 A304586 A155969 * A201432 A128210 A215409

Adjacent sequences: A076234 A076235 A076236 * A076238 A076239 A076240

Keyword

nonn

Author

Labos Elemer, Oct 08 2002

Status

approved