login
A130441
Even pseudoprimes to base 37.
14
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
Amiram Eldar, Table of n, a(n) for n = 1..548 (terms below 10^11; terms 1..243 from Robert G. Wilson v)
Eric Weisstein's World of Mathematics, Fermat Pseudoprime.
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 *)
PROG
(PARI) is(k) = k > 2 && !(k % 2) && Mod(37, k)^(k-1) == 1; \\ Amiram Eldar, Sep 29 2024
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, May 26 2007
STATUS
approved