|
|
A046661
|
|
Number of n-step self-avoiding walks on the square lattice with first step specified.
|
|
10
|
|
|
1, 3, 9, 25, 71, 195, 543, 1479, 4067, 11025, 30073, 81233, 220375, 593611, 1604149, 4311333, 11616669, 31164683, 83779155, 224424291, 602201507, 1611140121, 4316653453, 11536599329, 30870338727, 82428196555, 220329372907
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Used as the denominator for the mean square displacement of all different self-avoiding n-step walks in A078797. - Hugo Pfoertner, Dec 09 2002
Number of ways a toy snake with n segments can be bent without flipping the snake upside down. Each segment must be perpendicular or parallel with each adjacent segment. A "slither" is a way of writing down the configuration of a snake; starting from the tail, write down which direction the next segment is pointing (R for right, S for straight, L for left). E.g., a snake with 10 segments may have the valid slither RLRRLLRRL, but not RSRRSSLSL.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
(* b = A001411 *) mo = Tuples[{-1, 1}, 2]; b[0] = 1; b[tg_, p_:{{0, 0}}] := b[tg, p] = Block[{e, mv = Complement[Last[p] + #& /@ mo, p]}, If[tg == 1, Length[mv], Sum[b[tg - 1, Append[p, e]], {e, mv}]]];
a[n_] := b[n]/4;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,walk
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|