The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A196202 a(n) = 2^(prime(n)-1) mod prime(n)^2. 9
 2, 4, 16, 15, 56, 40, 222, 58, 392, 30, 187, 38, 944, 1076, 2069, 1909, 473, 2197, 671, 143, 4089, 1502, 3985, 535, 5530, 9293, 6078, 1392, 7304, 9380, 2287, 2228, 7262, 4171, 14305, 8457, 12875, 10922, 7850, 520, 8951, 26789, 9551, 20073, 34476, 26866 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS a(A049084(A001220(1)) = a(A049084(A001220(2)) = 1. REFERENCES N. G. W. H. Beeger, On a new case of the congruence 2^(p-1) ≡ 1 (p^2), Messenger of Mathematics 51, (1922), p. 149-150 Paulo Ribenboim, 1093 (Chap 8), in 'My Numbers, My Friends', Springer-Verlag 2000 NY, page 213ff. LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 W. Meissner, Über die Teilbarkeit von 2^p-2 durch das Quadrat der Primzahl p = 1093, Sitzungsberichte Königlich Preussischen Akadamie Wissenschaften Berlin, 35 (1913), 663-667. [Annotated scanned copy] Eric Weisstein's World of Mathematics, Wieferich Prime Wikipedia, Wieferich prime EXAMPLE A001220(1)=1093=A000040(183): a(183)=1, or a(A049084(A001220(1))=1; A001220(2)=3511=A000040(490): a(490)=1, or a(A049084(A001220(2))=1. MAPLE seq(2 &^ (ithprime(n)-1) mod ithprime(n)^2, n=1..1000); # Robert Israel, Aug 03 2014 MATHEMATICA PowerMod[2, #-1, #^2]&/@Prime[Range[50]] (* Harvey P. Dale, Apr 25 2012 *) PROG (PARI) forprime(p=2, 1e2, print1(lift(Mod(2, p^2)^(p-1)), ", ")) \\ Felix Fröhlich, Aug 03 2014 (Haskell) import Math.NumberTheory.Moduli (powerMod) a196202 n = powerMod 2 (p - 1) (p ^ 2) where p = a000040 n -- Reinhard Zumkeller, May 18 2015 CROSSREFS Cf. A061286. Sequence in context: A186008 A067846 A155893 * A135569 A210579 A217863 Adjacent sequences:  A196199 A196200 A196201 * A196203 A196204 A196205 KEYWORD nonn AUTHOR Reinhard Zumkeller, Sep 29 2011 STATUS approved

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

Last modified August 7 19:32 EDT 2020. Contains 336279 sequences. (Running on oeis4.)