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

Author

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

Keywords

• nonn
• walk

Links

• Paolo Xausa, Table of n, a(n) for n = 1..700
• Index entries for sequences related to walks

Crossrefs

Cf. A355478.

Programs

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]]]