%I A105459
%S A105459 0,3,64,497,3789,30870,261869
%N A105459 Number of irregular primes less than 10^n.
%t A105459 ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, 
               # < 10^n &]], {n, 7}]
%Y A105459 Cf. A006880, A105463, A105468.
%Y A105459 Sequence in context: A053857 A037108 A092901 this_sequence A099338 A119924 
               A084883
%Y A105459 Adjacent sequences: A105456 A105457 A105458 this_sequence A105460 A105461 
               A105462
%K A105459 hard,nonn
%O A105459 1,2
%A A105459 Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 07 2005