The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
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!)
A143811 Number of numbers k<p such that k^(p-1)-1 is divisible by p^2, p = prime(n). 1
1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 1, 3, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 3, 3, 2, 1, 1, 2, 1, 3, 1, 1, 1, 2, 2, 1, 2, 2, 3, 2, 1, 3, 2, 1, 2, 1, 2, 2, 4, 1, 1, 2, 2, 2, 2, 1, 3, 1, 4, 1, 3, 3, 3, 3, 3, 2, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 3, 1, 1, 5, 1, 2, 1, 3, 2, 2, 1, 2, 2, 2, 1, 4 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,5
COMMENTS
Note that a(n)>0 because k=1 is always a solution. The primes for which a(n)>1 are given in A134307. The values of k are the terms <p in row n of A143548. The largest known terms in this sequence are for the Wieferich primes 1093 and 3511, for which we have a(183)=11 and a(490)=12, respectively. It is not hard to show that k=p-1 is never a solution for odd prime p. In fact, (p-1)^(p-1)=p+1 (mod p^2) for odd prime p.
LINKS
MATHEMATICA
Table[p=Prime[n]; s=Select[Range[p-1], PowerMod[ #, p-1, p^2]==1&]; Length[s], {n, 100}]
CROSSREFS
Sequence in context: A328391 A109393 A030348 * A109673 A023591 A165661
KEYWORD
nonn
AUTHOR
T. D. Noe, Sep 02 2008
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 May 12 20:41 EDT 2024. Contains 372494 sequences. (Running on oeis4.)