%I #6 Mar 05 2019 08:36:43
%S 0,0,0,0,0,2,5,9,28,64,124,225,408,763,1378,2566,4803,9005,16948,
%T 32300,61408,116688,222093,424411,812236,1556827,2991345,5756015,
%U 11089585,21403049
%N Number of irregular primes less than 2^n.
%t ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < 2^n &]], {n, 23}]
%Y Cf. A007053, A105460, A105465.
%K hard,nonn,more
%O 1,6
%A _Robert G. Wilson v_, Apr 07 2005
%E a(23) corrected and a(24)-a(40) added by _Amiram Eldar_, Mar 05 2019
|