OFFSET
0,2
REFERENCES
D. E. Knuth, The Art of Computer Programming, Vol. 3, Sorting and Searching, 2nd ed, section 5.2.1, pp. 91-92.
LINKS
Robert Sedgewick, Analysis of shellsort and related algorithms, Fourth European Symposium on Algorithms, Barcelona, September, 1996.
FORMULA
a(0)=1, then a(s)=a(s-r)*b(r) for r such that C(r, 2)<s<=C(r+1, 2), where b() is A036567.
MATHEMATICA
A036569[k_] :=
With[{r = Floor[Sqrt[2 k + Sqrt[2 k]]]},
With[{b = r (r + 1)/2 - k + 1},
Times @@ (A036567 /@
Select[Range[r], # != b &])]]; (* Morgan Owens, Oct 08 2020 *)
Array[A036569, 10]
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved