A076239 Remainder when 3rd-order composite ccc(n) = A050436(n) is divided by n.

0, 1, 1, 2, 3, 3, 1, 6, 3, 2, 4, 1, 11, 10, 10, 8, 6, 6, 7, 8, 6, 4, 3, 2, 2, 0, 26, 0, 0, 28, 28, 29, 28, 27, 28, 28, 30, 29, 28, 30, 29, 31, 31, 30, 29, 29, 28, 28, 27, 26, 28, 29, 29, 30, 30, 29, 31, 30, 29, 32, 31, 30, 29, 28, 29, 28, 27, 26, 26, 25, 26, 26, 26, 26, 26, 28, 29

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

Cf. A002808, A050435, A050436, A050438, A050439.

Cf. A065860, A076236, A076237, A076238.

Sequence in context: A138677 A193885 A364957 * A019798 A214734 A120653

Adjacent sequences: A076236 A076237 A076238 * A076240 A076241 A076242

Keyword

nonn

Author

Labos Elemer, Oct 08 2002

Status

approved