Wiesen Bocksbart in Wallis #shorts#nature#mathyoutu.be/r8d_4On0trs?si=K7v3… via @YouTube
Mathematica of the graph:
K=20;L=100;
A=Flatten[Table[Union[{Rule[{0},{k}]},Table[Rule[{k},{k,l}],{l,L}]],{k,K}]];
GraphPlot3D[UndirectedGraph[Graph[Flatten[Union[A]]]]]