A105458 Number of irregular primes less than 3^n.

0, 0, 0, 3, 9, 48, 131, 334, 880, 2355, 6341, 17157, 47620, 132015, 366790, 1025835, 2884928, 8143498

Offset

1,4

Links

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

Mathematica

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

Crossrefs

Cf. A055729, A105462, A105467.

Sequence in context: A111551 A258481 A102929 * A366485 A306947 A183952

Adjacent sequences: A105455 A105456 A105457 * A105459 A105460 A105461

Keyword

hard,nonn,more

Author

Robert G. Wilson v, Apr 07 2005

Extensions

a(15)-a(18) from Amiram Eldar, Mar 05 2019

Status

approved