OFFSET
1,2
COMMENTS
If you graph a(n) versus n, an interesting pattern with random-looking fluctuations emerges.
As you go farther along the n-axis, greater are the number of regular primes, on average, within each interval obtained.
The smallest count of 1 occurs only once at the very beginning.
I suspect all numbers in this sequence are > 0.
If one could prove that there is at least 1 regular prime within each interval, this would imply that regular primes are infinite.
This would be very significant since "Kummer was able to prove Fermat's Last Theorem in the case where the exponent is a regular prime, a result that prior to Wiles's recent work was the only demonstration of Fermat's Last Theorem for a large class of exponents." (see Jao link).
LINKS
C. K. Caldwell, The Prime Glossary, Regular prime
D. Jao, Regular prime, PlanetMath.org.
FORMULA
Used the table of irregular primes by T.D. Noe in A000928 to extract a longer list of regular primes from a list of odd primes.
EXAMPLE
Take any pair of consecutive primes. Say the first (2,3). Square the first term, and then take the product of the two to obtain an interval (4,6). Within this interval, there is 1 regular prime, which is 5. Hence the very first term of the sequence above is 1. Similarly, the second term, 2, refers to the two regular primes 11 and 13.
PROG
(PARI) has(p)=forstep(k=2, p-3, 2, if(numerator(bernfrac(k))%p==0, return(0))); 1
a(n, p=prime(n))=my(q=nextprime(p+1), s); forprime(r=p^2, p*q, if(has(r), s++)); s \\ Charles R Greathouse IV, Nov 02 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaspal Singh Cheema, Mar 12 2010
EXTENSIONS
New name from Charles R Greathouse IV, Nov 02 2022
STATUS
approved