FindSequenceFunction[{1,4,37,105,225,426,749},n]