digits = ImagePartition[Import["https://i.sstatic.net/cLncR.png"], 50];
    d1     = Flatten@Map[Binarize[ImageCrop[#, 37], .5] &, digits, {2}];
    d2     = Select[d1, (Min[ImageData[#]] == 0) &];
    TextRecognize@ImageAssemble@d2
    (*
    -> "64776958729385431752328231"
    *)