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

Author

Labos Elemer, Jul 30 2002

Keywords

• nonn

Examples

			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.
		

Crossrefs

Cf. A065855, A073366, A073367.

Programs

Mathematica

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

Formula

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