Revision History for A279567
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
|
|
|
#15 by Vaclav Kotesovec at Thu Oct 07 04:29:21 EDT 2021
|
|
|
|
#14 by Vaclav Kotesovec at Thu Oct 07 04:29:12 EDT 2021
|
| FORMULA
|
a(n) ~ c * (1 + sqrt(2))^(2*n) / n^(3/2), where c = 0.066085708825649431003670013119332303648755519420440375... - Vaclav Kotesovec, Oct 07 2021
|
| STATUS
|
approved
editing
|
|
|
|
#13 by Alois P. Heinz at Mon Jul 10 08:19:19 EDT 2017
|
|
|
|
#12 by Jean-François Alcover at Mon Jul 10 07:59:53 EDT 2017
|
|
|
|
#11 by Jean-François Alcover at Mon Jul 10 07:59:48 EDT 2017
|
| MATHEMATICA
|
b[n_, i_, m_] := b[n, i, m] = If[n == 0, 1, Sum[b[n-1, i-#+1, Max[m, j]-#]& @ Max[0, Min[m-1, j]], {j, 1, i}]]; a[n_] := b[n, 1, 0]; Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Jul 10 2017, after Alois P. Heinz *)
|
| STATUS
|
approved
editing
|
|
|
|
#10 by Alois P. Heinz at Thu Feb 23 15:36:03 EST 2017
|
|
|
|
#9 by Alois P. Heinz at Thu Feb 23 15:35:58 EST 2017
|
| LINKS
|
Alois P. Heinz, <a href="/A279567/b279567.txt">Table of n, a(n) for n = 0..400</a>
|
|
|
|
#8 by Alois P. Heinz at Thu Feb 23 15:31:08 EST 2017
|
| MAPLE
|
b:= proc(n, i, m) option remember; `if`(n=0, 1, add((h->
b(n-1, i-h+1, max(m, j)-h))(max(0, min(m-1, j))), j=1..i))
end:
a:= n-> b(n, 1, 0):
seq(a(n), n=0..30); # Alois P. Heinz, Feb 23 2017
|
|
|
|
#7 by Alois P. Heinz at Thu Feb 23 14:53:18 EST 2017
|
| KEYWORD
|
nonn,more,new
|
| EXTENSIONS
|
a(10)-a(25) from Alois P. Heinz, Feb 23 2017
|
|
|
|
#6 by Alois P. Heinz at Thu Feb 23 14:52:43 EST 2017
|
| DATA
|
1, 1, 2, 6, 21, 82, 343, 1509, 6893, 32419, 156058, 765578, 3815062, 19263736, 98368919, 507197436, 2637242188, 13814247530, 72834238423, 386244387688, 2058933104170, 11026807340592, 59304897232442, 320181600386661, 1734685419170666, 9428340999504441
|
|
|
|
|