1,4
ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < 3^n &]], {n, 14}]
Cf. A055729, A105462, A105467.
Sequence in context: A129432 A111551 A102929 * A183952 A141051 A001530
Adjacent sequences: A105455 A105456 A105457 * A105459 A105460 A105461
hard,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 07 2005