A376431 a(n) is the least odd prime factor of prime(n)^prime(n)-1.
3, 13, 11, 3, 5, 3, 10949, 3, 11, 7, 3, 3, 5, 3, 23, 13, 29, 3, 3, 5, 3, 3, 41, 11, 3, 5, 3, 53, 3, 7, 3, 5, 17, 3, 37, 3, 3, 3, 83, 43, 89, 3, 5, 3, 7, 3, 3, 3, 113, 3, 29, 7, 3, 5, 21589, 131, 67, 3, 3, 5, 3, 73, 3, 5, 3, 79, 3, 3, 173, 3, 11, 179, 3, 3, 3, 191
Offset: 1
Keywords
Links
- Hugo Pfoertner, Table of n, a(n) for n = 1..6542
Programs
-
PARI
a376431(n) = my(pp=prime(n)^prime(n)-1); forprime (p=3, oo, if(pp%p==0, return(p)))