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,5

Links

Table of n, a(n) for n=1..21.

Mathematica

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

Crossrefs

Cf. A040014, A105461, A105466.

Sequence in context: A320855 A319613 A117962 * A134931 A119103 A180795

Adjacent sequences: A105454 A105455 A105456 * A105458 A105459 A105460

Keyword

hard,nonn,more

Author

Robert G. Wilson v, Apr 07 2005

Extensions

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

Status

approved