A334164 a(n) is the number of ON-cells in the completed n-th level of a triangular wedge in the hexagonal grid of A151723 (i.e., after 2^k >= n generations of the automaton in A151723 have been computed).
1, 2, 2, 4, 2, 6, 4, 8, 2, 10, 6, 10, 4, 14, 8, 16, 2, 18, 10, 16, 8, 20, 12, 22, 6, 26, 14, 22, 8, 30, 16, 32, 2, 34, 18, 28, 16, 34, 18, 32, 14, 40, 22, 34, 16, 42, 24, 44, 10, 50, 26, 40, 20, 48, 28, 50, 14, 58, 30, 46, 16, 62, 32, 64
Offset: 1
Keywords
Links
- Hartmut F. W. Hoft, Diagram of ON-cell counts
Crossrefs
Programs
-
Mathematica
(* a169781[] and support functions are defined in A169781 and create the list nTriangle *) a334164[n_] := Module[{k, levels={}}, a169781[n]; For[k=1, k<=n, k++, AppendTo[levels, Count[nTriangle[[k]], 1] - 2]]; levels]/;(n>=3 && IntegerQ[Log[2,n]]) a334164[64] (* sequence data *)
Comments