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 this_sequence A001530 A012063 A036751

Adjacent sequences: A105455 A105456 A105457 this_sequence A105459 A105460 A105461

hard,nonn

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