login
A130434
Even pseudoprimes to base 7.
15
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.
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 *)
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, May 26 2007
EXTENSIONS
a(9)-a(37) from Robert G. Wilson v, May 28 2007
STATUS
approved