The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 2 04:44 EDT 2023. Contains 365831 sequences. (Running on oeis4.)