ToString[ IntegerName[#, "Words"] & /@ Table[RandomPrime[1000000], {n, 1, 20}]]

seventy-nine thousand, three hundred nine, two hundred seventy-nine thousand, five hundred twenty-three, six hundred fifty-nine thousand, two hundred seventy-nine, thirty-eight thousand, five hundred sixty-nine, two hundred twenty-three thousand, four hundred thirty-nine, two hundred sixty-three thousand, six hundred eleven, two hundred eleven thousand, five hundred eighty-three, three hundred seventy-one thousand, nine hundred thirty-nine, four hundred seventy-four thousand, three hundred eleven, five hundred forty-five thousand, four hundred forty-three, five hundred eighteen thousand, one hundred thirty-one, nine hundred five thousand, one hundred thirty-seven, eight hundred fifty-two thousand, one hundred forty-three, one hundred seventy-nine thousand, two hundred sixty-nine, six hundred fifty-seven thousand, sixty-one, four hundred sixty-eight thousand, eight hundred twenty-one, four hundred fifteen thousand, sixty-one, four hundred thirty thousand, nine hundred forty-nine, four hundred thirty-two thousand, eight hundred ninety-three, nine hundred thirty-seven thousand, seven hundred seventy-seven