OFFSET
1,2
COMMENTS
There are 310443 irregular primes less than 12 million.
MATHEMATICA
ip={ the list of irregular primes to 12 million }; NestList[ ip[[ # ]] &, 1, 2]
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Robert G. Wilson v, Apr 07 2005
EXTENSIONS
a(6)-a(7) from Amiram Eldar, Mar 05 2019
STATUS
approved