[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Revision History for A276852 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Number of positive walks with n steps {-3,-2,-1,1,2,3} starting at the origin, ending at altitude 1, and staying strictly above the x-axis.
(history; published version)
#29 by Alois P. Heinz at Tue Oct 11 15:54:08 EDT 2016
STATUS

editing

approved

#28 by Alois P. Heinz at Tue Oct 11 15:54:04 EDT 2016
LINKS

Alois P. Heinz, <a href="/A276852/b276852.txt">Table of n, a(n) for n = 0..1292</a>

#27 by Alois P. Heinz at Tue Oct 11 15:50:35 EDT 2016
DATA

0, 1, 2, 7, 28, 121, 560, 2677, 13230, 66742, 343092, 1788681, 9439870, 50321865, 270594896, 1465941763, 7993664588, 43839212778, 241650560756, 1338084935826, 7439615051328, 41516113036777, 232452845782308, 1305500166481715, 7352433083806020, 41514430735834714

STATUS

approved

editing

#26 by Alois P. Heinz at Tue Oct 11 08:30:54 EDT 2016
STATUS

editing

approved

#25 by Alois P. Heinz at Tue Oct 11 08:30:49 EDT 2016
KEYWORD

nonn,more,walk,changed

STATUS

proposed

editing

#24 by Davin Park at Mon Oct 10 21:13:33 EDT 2016
STATUS

editing

proposed

#23 by Davin Park at Mon Oct 10 21:13:00 EDT 2016
MATHEMATICA

A276852[n_] := (Do[walks[m, k, 3], {m, n}, {k, 3 m}]; walks[n, 1, 3]; ) (* Davin Park, Oct 10 2016 *)

#22 by Davin Park at Mon Oct 10 19:23:02 EDT 2016
MATHEMATICA

dpwalks[n_, k_, h_] = 0;

dpwalks[1, k_, h_] := Boole[0 < k <= h];

dpwalks[n_, k_, h_] /; n >= 2 && k > 0 := dpwalks[n, k, h] = Sum[dpwalks[n - 1, k - x, h], {x, h}] + Sum[dpwalks[n - 1, k + x, h], {x, h}];

(* walks represents the number of positive walks with n steps {-h, -h+1, ... -1, 1, ..., h} that end at altitude k *)

A276852[n_] := dpwalks[n, 1, 3]; (* Davin Park, Oct 10 2016 *)

#21 by Alonso del Arte at Mon Oct 10 15:42:35 EDT 2016
STATUS

proposed

editing

#20 by Davin Park at Mon Oct 10 15:31:48 EDT 2016
STATUS

editing

proposed

Discussion
Mon Oct 10
15:42
Alonso del Arte: What's "dp"? Different parks? Deviation parameters? It needs a more meaningful name so that it's easier to understand how this 3-parameter function can be used in other contexts.