OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
compn:= 0: R:= NULL: count:= 0:
for n from 4 while count < 100 do
if not isprime(n) then
compn:= compn+1;
if igcd(compn, n) > 1 then
R:= R, n; count:= count+1;
fi
fi
od:
R; # Robert Israel, Aug 09 2020
MATHEMATICA
PROG
(PARI) lista(nn) = {my(n=0, list=List()); forcomposite (c=1, nn, n++; if (gcd(n, c) > 1, listput(list, c))); Vec(list); } \\ Michel Marcus, Jul 19 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 18 2020
STATUS
approved