A359529 Indices of records in A355478.

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

Offset

1,2

Links

Paolo Xausa, Table of n, a(n) for n = 1..700

Index entries for sequences related to walks

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

Cf. A355478.

Sequence in context: A168106 A061900 A048023 * A105710 A192226 A323005

Adjacent sequences: A359526 A359527 A359528 * A359530 A359531 A359532

Keyword

nonn,walk

Author

Paolo Xausa, Jan 04 2023, following a suggestion from Peter Munn

Status

approved