login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A255885 Smallest base b such that there exist exactly n Wieferich pseudoprimes (composites c satisfying b^(c-1) == 1 (mod c^2)) less than b. 5
17, 65, 145, 485, 649, 1297, 577, 2024, 5185, 8182, 7057, 8749, 14401, 30753, 56449, 57601, 77401, 129473, 51841, 129601, 254017, 296449, 202501, 389377 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
PROG
(PARI) for(n=1, 10, b=2; while(b > 0, i=0; forcomposite(c=2, b, if(Mod(b, c^2)^(c-1)==1, i++)); if(i==n, print1(b, ", "); break({1})); b++))
(Python)
from itertools import count
from sympy import isprime
def A255885(n):
for b in count(1):
if n == sum(1 for c in range(2, b+1) if not isprime(c) and pow(b, c-1, c**2) == 1):
return b # Chai Wah Wu, May 18 2022
CROSSREFS
Sequence in context: A086533 A226685 A108211 * A130885 A036545 A146807
KEYWORD
nonn,more
AUTHOR
Felix Fröhlich, Mar 09 2015
EXTENSIONS
a(20) from Chai Wah Wu, May 18 2022
a(21)-a(24) from Chai Wah Wu, May 19 2022
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 05:02 EDT 2024. Contains 371235 sequences. (Running on oeis4.)