%I #13 Feb 09 2023 13:20:15
%S 0,28,36,52,57,60,65,70,78,88,93,97,100,134,138,143,156,161,164,170,
%T 191,214,255,261,275,288,297,310,322,341,358,363,371,377,384,399,448,
%U 453,472,483,496,503,508,524,588,635,656,660,665,680,713,720,737,746,755
%N Indices of records in A355478.
%H Paolo Xausa, <a href="/A359529/b359529.txt">Table of n, a(n) for n = 1..700</a>
%H <a href="/index/Wa#WALKS">Index entries for sequences related to walks</a>
%t 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}]]];
%t Flatten[Join[{0},Position[Differences[A355478[500]],_?Positive]]]
%Y Cf. A355478.
%K nonn,walk
%O 1,2
%A _Paolo Xausa_, Jan 04 2023, following a suggestion from _Peter Munn_.
|