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