Mfcttrf

Is there an easy way to reproduce the following image in latex?

documentclass[tikz, margin=3mm]standalone
usetikzlibrarychains,
 positioning
 
usepackageamsmath

begindocument
begintikzpicture[
node distance = 1pt and 0pt,
 start chain = going right,
 block/.style = rectangle, minimum width=1.5em, outer sep=0pt,
 on chain,
 dot/.style = circle, fill, node contents=
 ] 
foreach i in 0,...,14
 node (ni) [block] i;
 
draw (n0.north west) -- (n14.north east);
draw (n1.south west) -- ++ (0,-0.2) -| (n13.south east)
 node[pos=0.25,below] $textRange = 13 - 1 = 12$;
node [dot,above=of n1];
node [dot,above=of n2];
node (d4) [dot,above=of n4];
node [dot,above=of d4];
node [dot,above=of n6];
node (d8) [dot,above=of n8];
node (d8a) [dot,above=of d8];
node [dot, above=of d8a];
node [dot, above=of n9];
node (d11) [dot, above=of n11];
node [dot, above=of d11];
node [dot, above=of n12];
node [dot, above=of n13];
endtikzpicture
enddocument 

Addedndum (1):
you can define nodes styles for two and three dots. With them the code for picture is:

documentclass[tikz, margin=3mm]standalone
usetikzlibrarychains,
 positioning
 
usepackageamsmath

begindocument
begintikzpicture[
node distance = 1pt and 0pt,
 start chain = going right,
 block/.style = rectangle, minimum width=1.5em, outer sep=0pt,
 on chain,
 dot/.style = circle, fill, node contents=,
 ddot/.style = circle, fill, 
 append after command=node[dot,above=of tikzlastnode],
 node contents=,
 dddot/.style = circle, fill,
 append after command=node (aux) [dot,above=of tikzlastnode] 
 node [dot,above=of aux],
 node contents=
 ] 
foreach i in 0,...,14
 node (ni) [block] i;
 
draw (n0.north west) -- (n14.north east);
draw (n1.south west) -- ++ (0,-0.2) -| (n13.south east)
 node[pos=0.25,below] $textRange = 13 - 1 = 12$;
%
node [dot,above=of n1];
node [dot,above=of n2];
node [ddot,above=of n4]; % <---
node [dot,above=of n6];
node [dddot,above=of n8]; % <---
node [dot, above=of n9];
node [ddot, above=of n11];% <---
node [dot, above=of n12];
node [dot, above=of n13];
endtikzpicture
enddocument 

Addedndum (2):
version with dots as labels in the loop. A bit shorter code:

documentclass[tikz, margin=3mm]standalone
usetikzlibrarychains,
 positioning
 
usepackageamsmath

begindocument
begintikzpicture[
node distance = 1pt and 0pt,
 start chain = going right,
 block/.style = rectangle, minimum width=1.5em, outer sep=0pt,
 on chain,
 dot/.style = circle, fill, node contents=,
 ddot/.style = circle, fill,
 append after command=node[dot,above=of tikzlastnode],
 dddot/.style = circle, fill,
 append after command=node (aux) [dot,above=of tikzlastnode]
 node [dot,above=of aux],
 node contents=
 ]
foreach i [count=j from 0] in , dot, dot, ,ddot, , dot, 
 ,dddot,dot, ,ddot, dot, dot, 
 node (nj) [block, label=[yshift=3pt,i]] j;
 
draw (n0.north west) -- (n14.north east);
draw (n1.south) -- ++ (0,-0.1) -| (n13.south)
 node[pos=0.25,below] $textRange = 13 - 1 = 12$;
endtikzpicture
enddocument

Result is the same as before.

Use pics. You can define a pic tower list which draws the circles. Getting all the x coordinates and circles is then as simple as saying

 pictower list=0,1,1,0,2,0,1,0,3,1,0,2,1,1,0;

where the integers indicate how many circles should be drawn at 0, 1, 2....

documentclass[tikz,border=3mm]standalone
begindocument
begintikzpicture[font=sffamily,pics/tower/.style=code=
ifnum#1>0
foreach X in 1,...,#1fill (0,X*0.4) circle[radius=0.17cm];
fi,
pics/tower list/.style=code=path foreach Y [count=Z starting from 0] in #1
 (Z*0.5,0)node[below](tower-Z)$mathsfZ$ (Z*0.5,0) pictower=Y;]
 beginscope
 pictower list=0,1,1,0,2,0,1,0,3,1,0,2,1,1,0;
 draw (tower-0.west|-0,0) -- (tower-13.east|-0,0);
 draw[blue] (tower-1.south) -- ++(0,-0.1) 
 -| (tower-13.south) 
 node[pos=0.25,below]Range$=mathsf13-mathsf1=mathsf12$;
 endscope
endtikzpicture
enddocument

You don't really need TiKZ for this. Just marvosym, booktabs and stackengine:

documentclassarticle
usepackage[utf8]inputenc
usepackage[T1]fontenc
usepackagemarvosym
usepackage[svgnames, table]xcolor
newcommandMVTenMVOneMVZero
newcommandMVxiMVOneMVOne
newcommandMVxiiMVOneMVTwo
newcommandMVxiiiMVOneMVThree
newcommandMVxivMVOneMVFour
usepackagearray,booktabs
usepackage[usestackEOL]stackengine

begindocument

setstackgapS0pt
begintabular*15c
& CircSteel & CircSteel & & ShortstackCircSteel\ CircSteel & & CircSteel & & ShortstackCircSteel\ CircSteel\ CircSteel & CircSteel & & ShortstackCircSteel\ CircSteel & CircSteel & CircSteel \[-0.6ex]
midrule[1pt]
MVZero & MVOne & MVTwo & MVThree & MVFour & MVFive & MVSix & MVSeven & MVEight & MVNine & MVTen & MVxi & MVxii & MVxiii & MVxiv \[-1ex]
arrayrulecolorLightSlateBlue!60 &colorLightSlateBlue!60 rule1pt1.3ex & multicolumn11c & colorLightSlateBlue!60rule1pt1.3ex \[-1.46ex]
cmidrule[1pt](l0.88emr1.19em)2-14addlinespace[-0.3ex]
& multicolumn13csffamilybfseries Range = 13 – 1 = 12
endtabular

enddocument