Function A000777