Public Function First100Primes() As Variant
'An Array of arrays. (10 each of 10 values)
Dim FactorialsTo_960, FactorialsTo_5238, FactorialsTo_16128, FactorialsTo_32040
Dim FactorialsTo_54288, FactorialsTo_80088, FactorialsTo_124608, FactorialsTo_218088
Dim FactorialsTo_292680, FactorialsTo_299208
FactorialsTo_960 = Array(2, 3, 5, 7, 11, 13, 17, 19, 23, 29) 'to 960
FactorialsTo_5238 = Array(31, 37, 41, 43, 47, 53, 59, 61, 67, 71) 'to 5,328
FactorialsTo_16128 = Array(73, 79, 83, 89, 97, 101, 103, 107, 109, 113) 'to 16,128
FactorialsTo_32040 = Array(127, 131, 137, 139, 149, 151, 157, 163, 167, 173) 'to 32,040
FactorialsTo_54288 = Array(179, 181, 191, 193, 197, 199, 211, 223, 227, 229) 'to 54,288 '181 factors all Excel Integers
FactorialsTo_80088 = Array(233, 239, 241, 251, 257, 263, 269, 271, 277, 281) 'to 80,088
FactorialsTo_124608 = Array(283, 293, 307, 311, 313, 317, 331, 337, 347, 349) 'to 124,608
FactorialsTo_218088 = Array(353, 359, 367, 373, 379, 383, 389, 397, 401, 409) 'to 218,088
FactorialsTo_292680 = Array(419, 421, 431, 433, 439, 443, 449, 457, 461, 463) 'to 292,680
FactorialsTo_299208 = Array(467, 479, 487, 491, 499, 503, 509, 521, 523, 541) 'to 299,208
First100Primes = Array(FactorialsTo_960, FactorialsTo_5238, FactorialsTo_16128, FactorialsTo_32040, _
FactorialsTo_54288, FactorialsTo_80088, FactorialsTo_124608, FactorialsTo_218088, _
FactorialsTo_292680, FactorialsTo_299208)
End Function