login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A259075 Smallest base b > 1 such that both prime(n) and prime(n+1) are base-b Wieferich primes, i.e., p = prime(n) satisfies  b^(p-1) == 1 (mod p^2) and q = prime(n+1) satisfies b^(q-1) == 1 (mod q^2). 2
17, 26, 18, 148, 239, 249, 423, 28, 63, 374, 117, 787, 2059, 1085, 655, 4586, 4153, 3147, 10056, 4559, 2092, 18692, 19487, 3018, 19343, 14285, 164, 31469, 6817, 7916, 16128, 4505, 18768, 2752, 26664, 16717, 129702, 46171, 1040, 3608, 9479, 4840, 42348, 14128 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Does b exist for all n?

a(n) == A039678(n) iff A039678(n) == A039678(n+1). The smallest n where those equalities hold is n = 8.

LINKS

Felix Fröhlich, Table of n, a(n) for n = 1..1000

MATHEMATICA

a[n_] := Block[{b=2, p = Prime@{n, n+1}}, While[{1, 1} != PowerMod[ b, p-1, p^2], b++]; b]; Array[a, 40] (* Giovanni Resta, Jun 23 2015 *)

PROG

(PARI) a(n) = p=prime(n); q=prime(n+1); b=2; while(Mod(b, p^2)^(p-1)!=1 || Mod(b, q^2)^(q-1)!=1, b++); b

CROSSREFS

Cf. A039678.

Sequence in context: A166666 A147445 A129910 * A212909 A273785 A171169

Adjacent sequences:  A259072 A259073 A259074 * A259076 A259077 A259078

KEYWORD

nonn

AUTHOR

Felix Fröhlich, Jun 18 2015

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 23 23:51 EDT 2019. Contains 328379 sequences. (Running on oeis4.)