Function A000097