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

Author

Alexander Adamchuk, May 26 2007

Keywords

• nonn

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.

Crossrefs

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

Programs

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 *)

Extensions

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