|
|
A105466
|
|
Number of irregular primes less than or equal to the m-th prime, where m = floor(exp(n)).
|
|
2
|
|
|
0, 0, 3, 9, 58, 160, 440, 1166, 3202, 8656, 23475, 64194, 174557, 473592, 1286383, 3495241, 9501807, 25833916
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Limit_{n->inf.} a(n)/e^n = 1-e^(-1/2).
|
|
LINKS
|
|
|
MATHEMATICA
|
ip={ the list of irregular primes to 12 million }; Table[ Length[ Select[ip, # < Prime[Floor[E^n]] &]], {n, 10}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
hard,nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Data corrected and a(11)-a(18) added by Amiram Eldar, Mar 05 2019
|
|
STATUS
|
approved
|
|
|
|