A105458 Number of irregular primes less than 3^n.
0, 0, 0, 3, 9, 48, 131, 334, 880, 2355, 6341, 17157, 47620, 132015, 366790, 1025835, 2884928, 8143498
Offset: 1
Programs
-
Mathematica
ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < 3^n &]], {n, 14}]
Extensions
a(15)-a(18) from Amiram Eldar, Mar 05 2019