login
A267488
Smallest b > 1 such that there exists an odd prime p with p < b such that b^(p-1) == 1 (mod p^n).
0
4, 7, 18, 80, 242, 728, 2186, 6560, 19682, 59048, 177146, 531440
OFFSET
1,1
COMMENTS
Conjecture: For n > 3, a(n) = A024023(n) = A103453(n).
PROG
(PARI) a(n) = my(b=2); while(1, forprime(p=3, b-1, if(Mod(b, p^n)^(p-1)==1, return(b))); b++)
CROSSREFS
Sequence in context: A234269 A135582 A100828 * A230601 A132207 A097537
KEYWORD
nonn,more
AUTHOR
Felix Fröhlich, Jan 15 2016
EXTENSIONS
a(11) from Michael S. Branicky, May 19 2022
a(12) from Michael S. Branicky, May 21 2022
STATUS
approved