How to insert a numbered item that jumps numbers like 1 then 6 then 16

I am working on a homework assignment for the book Mathematical Statistics with Applications. I have been assigned exercises 4.1, 4.6, 4.16, and on and I would like to create document with cells of the type ItermNumbered that don’t go 1 2 3 4, but jump from 4.1 to 4.6 to 4.16 and so on.
Is there a way to do this?
I searched numbering and also numbering bullets in the documentation center but couldn’t find a workflow explaining how to do this or a guide page, or a function page on how to modify the notebook.

Maybe this:

Do[
 CellPrint[
  Cell[BoxData[
    CounterBox["Section", 
     CounterFunction :> Function[Part[{"4.1", "4.6", "4.16"}, #]]]], 
   "Section"]],
 3]

It worked!

Edit: for some reason, the cloud notebook isn’t displaying right. I don’t know what you have to do to fix that.

The issue with the cloud notebook is known and reported (nothing you can do about it).