|
|
A066863
|
|
Number of binary arrangements without adjacent 1's on n X n staggered hexagonal grid.
|
|
4
|
|
|
2, 6, 43, 557, 14432, 719469, 70372090, 13351521479, 4941545691252, 3559349503024593, 4993739972681894885, 13642580224488264353504, 72582736229683196932680697, 751993955499337790653321567382, 15172223086707160824288341875907978
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
REFERENCES
|
Steven R. Finch, Mathematical Constants, Cambridge, 2003, pp. 342-349.
J. Katzenelson and R. P. Kurshan, S/R: A Language for Specifying Protocols and Other Coordinating Processes, pp. 286-292 in Proc. IEEE Conf. Comput. Comm., 1986.
|
|
LINKS
|
|
|
EXAMPLE
|
Neighbors for n=4:
o--o--o--o
| /|\ | /|
|/ | \|/ |
o--o--o--o
| /|\ | /|
|/ | \|/ |
o--o--o--o
| /|\ | /|
|/ | \|/ |
o--o--o--o
|
|
PROG
|
[S/R] proc a
stvar $[N][N]:boolean
init $[][] := false
cyset true
asgn $[][]->{false, true}
kill +[i in 0.. N-1](
+[j in 0.. N-1](
$[i][j]`*(
($[i][j+1]`?(j<=N-2)|false)
+($[i-1][j-1]`?((i>0)*(j>0)*((j mod 2)=0))|false)
+($[i-1][j+1]`?((i>0)*(j<=N-2)*((j mod 2)=0))|false)
+($[i-1][j]`?(i>0)|false)))) end
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|