The OEIS is supported by the many generous donors to the OEIS Foundation.

A253233
Smallest even pseudoprime (>2n+1) in base 2n+1.
1
4, 286, 124, 16806, 28, 70, 244, 742, 1228, 906, 1852, 154, 28, 286, 52, 66, 496, 442, 66, 1834, 344, 526974, 76, 506, 66, 70, 286, 1266, 2296, 946, 130, 5662, 112, 154, 14246, 370, 276, 8614, 2806, 2626, 112, 1558, 276, 2626, 19126, 1446, 322, 658, 176, 742, 190, 946, 5356, 742, 186, 190, 176, 8474, 2806, 2242, 148
OFFSET
0,1
For an even base there are no even pseudoprimes.
Conjecture: There are infinitely many even pseudoprimes in every odd base.
Records: 4, 286, 16806, 526974, 815866, 838246, ..., and they occur at indices: 0, 1, 3, 21, 503, 691, ...
Eric Chen, Table of n, a(n) for n = 0..999 (a(0) corrected by Georg Fischer, Jan 20 2019)
Eric Weisstein's World of Mathematics, Fermat pseudoprime
FORMULA
a(A005097(n-1)) = A108162(n).
MATHEMATICA
f[n_] := Block[{k = 2 * n + 2}, While[PrimeQ[k] || OddQ[k] || PowerMod[2 * n + 1, k - 1, k] != 1, k++ ]; k]; Table[ f[n], {n, 0, 60}]
PROG
(PARI) a(n) = for(k=n+1, 2^24, if(!isprime(2*k) && Mod(2*n+1, 2*k)^(2*k-1) == Mod(1, 2*k), return(2*k)))
CROSSREFS
Sequence in context: A113256 A259495 A090088 * A242997 A221135 A110816
KEYWORD
nonn
AUTHOR
Eric Chen, May 17 2015
STATUS
approved

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

Last modified September 20 13:29 EDT 2024. Contains 376072 sequences. (Running on oeis4.)