cp's OEIS Frontend

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.

A355479 a(n) is the number of distinct honeycomb cell walls built after the n-th step of the walk described in A355478.

This page as a plain text file.
%I A355479 #18 Jan 05 2023 15:39:28
%S A355479 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,20,20,20,20,21,
%T A355479 22,23,24,24,25,26,27,28,29,30,31,31,31,31,31,32,33,34,35,36,37,38,39,
%U A355479 40,40,41,42,42,43,44,45,46,46,46,47,47,48,49,50,51,51,51
%N A355479 a(n) is the number of distinct honeycomb cell walls built after the n-th step of the walk described in A355478.
%C A355479 See A355478 for more information, animations, and illustration of selected terms.
%H A355479 Paolo Xausa, <a href="/A355479/b355479.txt">Table of n, a(n) for n = 0..9999</a>
%H A355479 <a href="/index/Wa#WALKS">Index entries for sequences related to walks</a>
%e A355479 In the following diagrams the walk is shown at the end of the n-th step, together with the position of the bee (*).
%e A355479 .
%e A355479 n     0      1      8        28               60
%e A355479 a(n)  0      1      8        24               47
%e A355479                                          __
%e A355479                                       __/  \*_
%e A355479       *      __*   __    __          /  \__/  \__
%e A355479                      \     \__       \__/  \__   \__
%e A355479                      /     /  \__       \__/  \__/  \__
%e A355479                      \     \*_   \__       \__/  \__   \__
%e A355479                      /     /  \     \            /  \     \
%e A355479                      \     \__/   __/            \__/   __/
%e A355479                      /     /   __/               /   __/
%e A355479                      \*    \__/                  \__/
%e A355479 .
%t A355479 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];
%t A355479 A355479[100] (* _Paolo Xausa_, Jan 05 2023 *)
%Y A355479 Cf. A174313, A211020, A233399, A355478, A355480, A357434.
%K A355479 nonn,walk
%O A355479 0,3
%A A355479 _Paolo Xausa_, Jul 18 2022