OFFSET
1,5
MATHEMATICA
ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < E^n &]], {n, 16}]
CROSSREFS
KEYWORD
hard,nonn,more
AUTHOR
Robert G. Wilson v, Apr 07 2005
EXTENSIONS
a(16) corrected and a(17)-a(21) added by Amiram Eldar, Mar 05 2019
STATUS
approved