A130434 Even pseudoprimes to base 7.

6, 16806, 29234, 67798, 791578, 1234806, 1807566, 2427706, 12562534, 29147626, 29783134, 38357866, 41716918, 50167486, 99392626, 111664666, 162474586, 169707826, 281780346, 286351066, 349880326, 423200566, 463054594, 479581642

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..163 (terms below 10^12, calculated from the b-file at A005938; terms 1..37 from Robert G. Wilson v)

Eric Weisstein's World of Mathematics, Fermat Pseudoprime.

Index entries for sequences related to pseudoprimes.

Mathematica

lst = {}; Do[ If[ PowerMod[7, 2n - 1, 2n] == 1, AppendTo[lst, 2n]; Print[2n]], {n, 2, 24000000}]; lst (* Robert G. Wilson v, May 28 2007 *)

Crossrefs

Cf. A005938, A006935, A130433, A090082, A090083, A090084, A090085, A130435, A130436, A130437, A130438, A130439, A130440, A130441, A130442, A130443.

Sequence in context: A036773 A007702 A112642 * A121571 A123659 A079192

Adjacent sequences: A130431 A130432 A130433 * A130435 A130436 A130437

Keyword

nonn

Author

Alexander Adamchuk, May 26 2007

Extensions

a(9)-a(37) from Robert G. Wilson v, May 28 2007

Status

approved