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 this_sequence A134931 A119103 A107653

Adjacent sequences: A105454 A105455 A105456 this_sequence A105458 A105459 A105460

hard,nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 07 2005