Function A000037