1,5
Limit_{n->inf.} a(n)/2^n = 1-e^(-1/2).
ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < Prime[2^n] &]], {n, 19}]
Cf. A105456, A105460.
Sequence in context: A079798 A037504 A197237 * A089040 A184262 A126944
Adjacent sequences: A105462 A105463 A105464 * A105466 A105467 A105468
hard,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 07 2005