A130441 Even pseudoprimes to base 37.

4, 6, 12, 18, 28, 36, 66, 246, 268, 396, 1476, 1876, 2044, 2556, 2706, 3556, 5986, 9514, 11034, 16236, 17466, 25626, 31956, 34716, 120786, 149076, 153756, 246484, 259588, 281886, 283276, 483636, 552926, 559966, 623566, 670186, 721846, 846076, 1050666

Offset

1,1

Links

Robert G. Wilson v, Table of n, a(n) for n = 1..243.

Eric Weisstein's World of Mathematics, Fermat Pseudoprime.

Index entries for sequences related to pseudoprimes

Mathematica

Do[ f=PowerMod[ 37, 2n-1, 2n ]; If[ f==1, Print[ 2n ] ], {n, 2, 500000} ]
lst = {}; Do[ If[ PowerMod[37, 2n - 1, 2n] == 1, AppendTo[lst, 2n]], {n, 2, 2^31}]; lst (* Robert G. Wilson v, Jun 01 2007 *)

Crossrefs

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

Sequence in context: A154965 A249630 A109290 * A074998 A061715 A280469

Adjacent sequences: A130438 A130439 A130440 * A130442 A130443 A130444

Keyword

nonn

Author

Alexander Adamchuk, May 26 2007

Status

approved