OFFSET
0,3
EXAMPLE
The 7th composite is 14. There are three terms from among (a(0),a(1),...a(6)) that divide 14 (a(0)=1, a(1)=1, a(2)=2). So a(7) = 3.
MAPLE
c:=proc(n) if isprime(n)=false then n else fi end: C:=[seq(c(n), n=2..200)]: a[0]:=1: for n from 1 to 110 do a[n]:=0: for j from 0 to n-1 do if C[n] mod a[j] = 0 then a[n]:=a[n]+1 else fi od: od: seq(a[n], n=0..110); # Emeric Deutsch, May 27 2007
A002805 := proc(n) option remember ; local a; if n = 1 then 4 ; else a := 1+A002805(n-1) ; while isprime(a) do a := a+1 ; od ; RETURN(a) ; fi ; end: A126854 := proc(nmax) local a, anext, n, acomp, i; a := [1] ; while nops(a) < nmax do n := nops(a) ; anext := 0 ; acomp := A002805(n) ; for i from 1 to n do if acomp mod op(i, a) = 0 then anext := anext+1 ; fi ; od ; a := [op(a), anext] ; od ; a ; end: A126854(100) ; # R. J. Mathar, Jun 08 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, May 13 2007
EXTENSIONS
More terms from Emeric Deutsch and R. J. Mathar, May 27 2007
STATUS
approved