how to duplicate value in cells based of block value from another cell

I want to have multiple city numbers and the amount of blocks that are provided in the data given. Here is an image of what I'm looking at and the out put of what I would need it to look like. image of what would be needed done

in column A where you see 41288 and in column B where you see an integer value of 4
in an empty column lets say C,D,E,F,G,H ..... i want it to space out between cells as shown in column E and F.
so, i believe the question is how do i space out between the integer number and digit number in (A)?

I know there has got to be a formula. However, not knowing what to ask on Google can get you NO WHERE. 

The VBA answer (which gives you it in the exact format you were after) is as follows:
Sub DigitBlocks()
Dim rng As Range, a As Double, b As Double, c As Double, d As Double, e As Double
Set rng = ActiveSheet.Range("A2").CurrentRegion

a = Val(Right(Left(rng.Address, InStr(rng.Address, ":") - 1), Len(Left(rng.Address, InStr(rng.Address, ":") - 1)) - InStrRev(Left(rng.Address, InStr(rng.Address, ":") - 1), "$"))) + 1
b = 3

For d = a To rng.Rows.Count
    Range("E" & b).Value = Range("A" & d).Value
    e = Range("B" & d).Value
    For c = 1 To e
Range("F" & b + c - 1).Value = c
    Next c
    b = b + c
Next d
End Sub

Given the amended requirements in comments the answer is now:
Sub DigitBlocks()
    Dim rng As Range, a As Double, b As Double, c As Double, d As Double, e As Double
    Set rng = ActiveSheet.Range("A2").CurrentRegion

    a = Val(Right(Left(rng.Address, InStr(rng.Address, ":") - 1), Len(Left(rng.Address, InStr(rng.Address, ":") - 1)) - InStrRev(Left(rng.Address, InStr(rng.Address, ":") - 1), "$"))) + 1
    b = 3

    For d = a To rng.Rows.Count
Range("M" & b).Value = Range("J" & d).Value
e = Range("K" & d).Value
For c = 1 To e
Range("N" & b + c - 1).Value = c
Next c
b = b + c
    Next d
    End Sub