A105457 Number of irregular primes less than e^n.

0, 0, 0, 1, 6, 21, 66, 170, 404, 984, 2384, 5877, 14459, 36720, 92657, 234376, 597082, 1525209, 3913689, 10076194, 26016985

Offset: 1

Author

Robert G. Wilson v, Apr 07 2005

Keywords

• hard
• nonn
• more

Crossrefs

Cf. A040014, A105461, A105466.

Programs

Mathematica

ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < E^n &]], {n, 16}]

Extensions

a(16) corrected and a(17)-a(21) added by Amiram Eldar, Mar 05 2019