A073368 Remainder when n is divided by number of composites not exceeding n.

0, 0, 0, 1, 2, 1, 0, 1, 0, 1, 0, 7, 7, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 11, 11, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 14, 14, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, 18, 18, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 21, 21, 22, 22, 22, 22, 22, 22

Offset

4,5

Links

Table of n, a(n) for n=4..78.

Formula

a(n)=Mod[n, A065855(n)]

Example

n=14: a(14)=Mod[14,14-Pi(14)-1]=Mod[14,14-7]=0; n=15: a(15)=Mod[15,15-Pi(15)-1]=Mod[15,7]=1.

Mathematica

Table[Mod[w, w-PrimePi[w]-1], {w, 1, 128}]

Crossrefs

Cf. A065855, A073366, A073367.

Sequence in context: A116683 A079748 A368457 * A321756 A258141 A037889

Adjacent sequences: A073365 A073366 A073367 * A073369 A073370 A073371

Keyword

nonn

Author

Labos Elemer, Jul 30 2002

Status

approved