A171527 Numerator of (n-th composite/n).

4, 3, 8, 9, 2, 2, 2, 15, 16, 9, 20, 7, 22, 12, 5, 13, 27, 14, 30, 8, 11, 17, 35, 3, 38, 3, 40, 3, 44, 3, 46, 3, 49, 25, 51, 13, 54, 55, 56, 57, 58, 10, 62, 63, 64, 65, 66, 17, 69, 7, 24, 37, 75, 38, 7, 39, 80, 81, 82, 7, 85, 43, 29, 11, 18, 91, 92, 93, 94, 19, 96, 49, 99, 50, 34, 26, 15, 53, 108

Offset

1,1

Comments

Numerator of (A002808(n)/n).

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

compos:= remove(isprime, [$2..1300]):
seq(numer(compos[n]/n), n=1..1000); # Robert Israel, Nov 03 2020

Mathematica

Module[{nn=200, cmps, len}, cmps=Select[Range[nn], CompositeQ]; len= Length[ cmps]; #[[1]]/#[[2]]&/@Thread[{cmps, Range[len]}]]//Numerator (* Harvey P. Dale, Jan 08 2022 *)

Prog

(PARI) lista(nn) = {compo = select(n->(! isprime(n) && (n != 1)), vector(nn, i, i)); for (i = 1, #compo, print1(numerator(compo[i]/i), ", "); ); } \\ Michel Marcus, Sep 11 2013

Crossrefs

Cf. A171528.

Sequence in context: A134390 A004125 A137924 * A240969 A198576 A368551

Adjacent sequences: A171524 A171525 A171526 * A171528 A171529 A171530

Keyword

nonn,frac,look

Author

Jaroslav Krizek, Dec 11 2009

Extensions

More terms from Michel Marcus, Sep 11 2013

Corrected by Robert Israel, Nov 03 2020

Status

approved