OFFSET
1,1
COMMENTS
a(n) equals either composite(n+1) or composite(w)+1 or binomial(c,2) for some composite number c.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Block[{f}, f[n_] := FixedPoint[n + PrimePi@ # + 1 &, n + PrimePi[n] + 1]; Array[Binomial[f[# + 1], f[#]] &, 10^4]] (* Michael De Vlieger, Nov 05 2020 *)
PROG
(PARI) lista(nn) = {my(prec = 0); forcomposite(c=1, nn, if (prec, print1(binomial(c, prec), ", ")); prec = c; ); } \\ Michel Marcus, Mar 26 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 09 2002
EXTENSIONS
Edited by Michael De Vlieger, Nov 05 2020
STATUS
approved