|
|
A359529
|
|
Indices of records in A355478.
|
|
2
|
|
|
0, 28, 36, 52, 57, 60, 65, 70, 78, 88, 93, 97, 100, 134, 138, 143, 156, 161, 164, 170, 191, 214, 255, 261, 275, 288, 297, 310, 322, 341, 358, 363, 371, 377, 384, 399, 448, 453, 472, 483, 496, 503, 508, 524, 588, 635, 656, 660, 665, 680, 713, 720, 737, 746, 755
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
A355478[nmax_]:=Module[{walk={{0, 0}}, angle=0, cells}, Join[{0}, Table[AppendTo[walk, AngleVector[Last[walk], angle+=If[PrimeQ[n], -1, 1]Pi/3]]; cells=FindCycle[Graph[MapApply[UndirectedEdge, Partition[walk, 2, 1]]], {6}, All]; CountDistinct[Map[Sort, Map[First, cells, {2}]]], {n, nmax}]]];
Flatten[Join[{0}, Position[Differences[A355478[500]], _?Positive]]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,walk
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|