OFFSET
1,1
EXAMPLE
4 (composite) is a term because composite(4) = 9;
8 (composite) is a term because composite(8) = 15;
12 (composite) is a term because composite(12) = 21.
MAPLE
A002808 := proc(n) option remember ; if n = 1 then 4; else for a from procname(n-1)+1 do if not isprime(a) then return a; end if; end do; end if; end proc:
isA002808 := proc(n) n >= 4 and not isprime(n) ; end proc:
for i from 1 to 400 do if isA002808(i) then c := A002808(i) ; if type(c, 'odd') then printf("%d, ", i) ; end if; end if; end do: # R. J. Mathar, May 10 2010
MATHEMATICA
seq[nmax_] := Module[{m, sq, cc}, For[m = nmax, True, m = m+nmax, sq = Select[cc = Select[Range[m], CompositeQ], If[# <= Length[cc], OddQ[cc[[#]]], False]&]; If[Length[sq] > nmax, Return[Take[sq, nmax]]]]];
seq[59] (* Jean-François Alcover, Jul 08 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 20 2009
EXTENSIONS
Entries checked by R. J. Mathar, May 10 2010
Name and Example section simplified by Jon E. Schoenfield, Feb 10 2019
STATUS
approved