OFFSET
1,1
COMMENTS
FORMULA
a(A000124(i))=3, i>=0. - R. J. Mathar, Apr 04 2009
MATHEMATICA
sp[n_]:=Module[{cl=Range[3, 51, 2], l={}}, Table[l=Join[l, Take[cl, i]], {i, n}]; l ]; sp[15] (* Harvey P. Dale, Oct 30 2011 *)
PROG
(PARI) forstep(m=3, 9, 2, forstep(n=3, m, 2, print1(n", "))) \\ Charles R Greathouse IV, Oct 30 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paul Curtz, Mar 29 2009
EXTENSIONS
Edited by R. J. Mathar, Apr 04 2009
Corrected by Harvey P. Dale, Oct 30 2011
STATUS
approved