Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)

Revision History for A149266

(Underlined text is an addition; strikethrough text is a deletion.)

Showing all changes.
A149266 Number of walks within N^3 (the first octant of Z^3) starting at (0,0,0) and consisting of n steps taken from {(-1, -1, 1), (-1, 0, 0), (0, -1, 1), (1, 0, -1), (1, 1, 0)}.
(history; published version)
#4 by Wesley Ivan Hurt at Thu Dec 28 20:22:26 EST 2023
STATUS

editing

approved

#3 by Wesley Ivan Hurt at Thu Dec 28 20:22:24 EST 2023
NAME

Number of walks within N^3 (the first octant of Z^3) starting at (0,0,0) and consisting of n steps taken from {(-1, -1, 1), (-1, 0, 0), (0, -1, 1), (1, 0, -1), (1, 1, 0)})}.

STATUS

approved

editing

#2 by Russ Cox at Fri Mar 30 18:54:11 EDT 2012
AUTHOR

_Manuel Kauers (manuel(AT)kauers.de), _, Nov 18 2008

Discussion
Fri Mar 30 18:54
OEIS Server: https://oeis.org/edit/global/269
#1 by N. J. A. Sloane at Fri Jan 09 03:00:00 EST 2009
NAME

Number of walks within N^3 (the first octant of Z^3) starting at (0,0,0) and consisting of n steps taken from {(-1, -1, 1), (-1, 0, 0), (0, -1, 1), (1, 0, -1), (1, 1, 0)}

DATA

1, 1, 4, 11, 40, 145, 557, 2204, 8878, 36670, 153158, 649421, 2779083, 12009927, 52301065, 229322103, 1011602788, 4485941698, 19989047298, 89445085086, 401786301272, 1811068535817, 8189394966213, 37138317913733, 168865708226573, 769695000793202, 3516190063129191, 16096483440690982

OFFSET

0,3

LINKS

A. Bostan and M. Kauers, 2008. Automatic Classification of Restricted Lattice Walks, <a href="http://arxiv.org/abs/0811.2899">ArXiv 0811.2899</a>.

MATHEMATICA

aux[i_Integer, j_Integer, k_Integer, n_Integer] := Which[Min[i, j, k, n] < 0 || Max[i, j, k] > n, 0, n == 0, KroneckerDelta[i, j, k, n], True, aux[i, j, k, n] = aux[-1 + i, -1 + j, k, -1 + n] + aux[-1 + i, j, 1 + k, -1 + n] + aux[i, 1 + j, -1 + k, -1 + n] + aux[1 + i, j, k, -1 + n] + aux[1 + i, 1 + j, -1 + k, -1 + n]]; Table[Sum[aux[i, j, k, n], {i, 0, n}, {j, 0, n}, {k, 0, n}], {n, 0, 10}]

KEYWORD

nonn,walk

AUTHOR

Manuel Kauers (manuel(AT)kauers.de), Nov 18 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 18 23:05 EDT 2024. Contains 375284 sequences. (Running on oeis4.)