1,6

ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < 2^n &]], {n, 23}]

Cf. A007053, A105460, A105465.

Sequence in context: A094600 A139796 A086586 this_sequence A128565 A151952 A090291

Adjacent sequences: A105453 A105454 A105455 this_sequence A105457 A105458 A105459

hard,nonn

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