1,2
Limit_{n->inf.} a(n)/10^n -> 1-e^(-1/2).
ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < Prime[10^n] &]], {n, 5}]
Cf. A105463.
Sequence in context: A125441 A142756 A142327 * A160298 A077508 A077514
Adjacent sequences: A105465 A105466 A105467 * A105469 A105470 A105471
hard,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 07 2005