A073366 Remainder when n-th prime is divided by number of composites not exceeding n.

0, 0, 1, 1, 1, 3, 4, 1, 1, 5, 1, 7, 8, 5, 1, 7, 5, 1, 1, 5, 5, 7, 5, 1, 17, 1, 18, 13, 11, 11, 7, 11, 7, 13, 13, 11, 11, 17, 13, 23, 19, 17, 13, 25, 31, 29, 25, 23, 23, 25, 29, 29, 29, 29, 25, 31, 29, 31, 35, 43, 41, 37, 35, 2, 1, 4, 49, 3, 2, 10, 9, 8, 5, 4, 5, 9, 10, 13, 8, 18, 13, 12

Offset

4,6

Links

Michael De Vlieger, Table of n, a(n) for n = 4..10000

Formula

a(n) = A000040(n) mod A065855(n).

Example

For n=4, p(4) mod 4-Pi(4)-1 = 7 mod 1 = 0 = a(4).

Mathematica

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

Crossrefs

Cf. A000040, A065855.

Sequence in context: A275886 A158572 A083532 * A001086 A105283 A347178

Adjacent sequences: A073363 A073364 A073365 * A073367 A073368 A073369

Keyword

nonn

Author

Labos Elemer, Jul 30 2002

Extensions

Edited by Michael De Vlieger, Nov 05 2020

Status

approved