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
KEYWORD
AUTHOR
Jaroslav Krizek, Dec 11 2009
EXTENSIONS
More terms from Michel Marcus, Sep 11 2013
Corrected by Robert Israel, Nov 03 2020
STATUS
approved