OFFSET
0,3
COMMENTS
See A355478 for more information, animations, and illustration of selected terms.
LINKS
EXAMPLE
In the following diagrams the walk is shown at the end of the n-th step, together with the position of the bee (*).
.
n 0 1 8 28 60
a(n) 0 1 8 24 47
__
__/ \*_
* __* __ __ / \__/ \__
\ \__ \__/ \__ \__
/ / \__ \__/ \__/ \__
\ \*_ \__ \__/ \__ \__
/ / \ \ / \ \
\ \__/ __/ \__/ __/
/ / __/ / __/
\* \__/ \__/
.
MATHEMATICA
A355479[nmax_]:=Module[{a={0}, w={}, p1={0, 0}, p2, angle=0}, Do[w=Union[w, {Sort[{p1, p2=AngleVector[p1, angle+=If[PrimeQ[n], -1, 1]Pi/3]}]}]; p1=p2; AppendTo[a, Length[w]], {n, nmax}]; a];
A355479[100] (* Paolo Xausa, Jan 05 2023 *)
CROSSREFS
KEYWORD
nonn,walk
AUTHOR
Paolo Xausa, Jul 18 2022
STATUS
approved