1,2

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

Cf. A006880, A105463, A105468.

Adjacent sequences: A105456 A105457 A105458 this_sequence A105460 A105461 A105462

Sequence in context: A053857 A037108 A092901 this_sequence A099338 A119924 A084883

hard,nonn

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