This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A359529 #15 Jul 09 2025 04:59:57
%S A359529 0,28,36,52,57,60,65,70,78,88,93,97,100,134,138,143,156,161,164,170,
%T A359529 191,214,255,261,275,288,297,310,322,341,358,363,371,377,384,399,448,
%U A359529 453,472,483,496,503,508,524,588,635,656,660,665,680,713,720,737,746,755
%N A359529 Indices of records in A355478.
%H A359529 Paolo Xausa, <a href="/A359529/b359529.txt">Table of n, a(n) for n = 1..700</a>
%H A359529 <a href="/index/Wa#WALKS">Index entries for sequences related to walks</a>
%t A359529 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 A359529 Flatten[Join[{0},Position[Differences[A355478[500]],_?Positive]]]
%Y A359529 Cf. A355478.
%K A359529 nonn,walk
%O A359529 1,2
%A A359529 _Paolo Xausa_, Jan 04 2023, following a suggestion from _Peter Munn_