＞横に１なり①なり書き加えたいのですが
そうすればいいじゃありませんか．
（既製品の）「ひとつの」コマンドではできないのなら，
複数のコマンドを組み合わせればいい
（さらに，複数のコマンドを記述するのが面倒なら，
ひとつのコマンドで書けるようにマクロにすればいい）
というだけのことですね．
・下線（というより，縦書きということなので「傍線」ですか？）を
作成するコマンド（e.g. jumoline パッケージが提供する \Overline）
・左右（横組み時には「上下」に相当する）方向へ文字を移動させるコマンド
（e.g. \raisebox）
・（必要があれば）なんらかのものの幅をごまかすコマンド（e.g. \rlap）
・（傍線につける番号を自動的に設定させたい場合には）LaTeX のカウンタの
定義・操作・出力に関係するコマンド（e.g. \newcounter，\refstepcounter，
\the<カウンタ名>）
のそれぞれについて調べれば，
お望みの出力が得るために必要なものは揃うと思いますが？