1,5
ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < E^n &]], {n, 16}]
Cf. A040014, A105461, A105466.
Sequence in context: A132130 A022571 A117962 * A134931 A119103 A180795
Adjacent sequences: A105454 A105455 A105456 * A105458 A105459 A105460
hard,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 07 2005