%I #9 Aug 01 2015 14:08:30
%S 4,14,28,52,268,364,1876,3484,5356,7294,24388,66788,283276,286492,
%T 339556,404236,860692,1153684,1381132,1478764,1696708,2073722,2182726,
%U 2222122,4922164,7790146,8200036,9679138,10881052,14863516,15476266
%N Even pseudoprimes to base 29.
%H Robert G. Wilson v, <a href="/A130439/b130439.txt">Table of n, a(n) for n = 1..121</a>.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FermatPseudoprime.html">Fermat Pseudoprime</a>.
%H <a href="/index/Ps#pseudoprimes">Index entries for sequences related to pseudoprimes</a>
%t Do[ f=PowerMod[ 29, 2n-1, 2n ]; If[ f==1, Print[ 2n ] ], {n,2,500000} ]
%t lst = {}; Do[ If[ PowerMod[17, 2n - 1, 2n] == 1, AppendTo[lst, 2n]], {n, 2, 2^31}]; lst (* _Robert G. Wilson v_, Jun 01 2007 *)
%Y Cf. A020157, A006935, A130433, A090082, A090083, A090084, A090085, A130434, A130435, A130436, A130437, A130438, A130440, A130441, A130442, A130443.
%K nonn
%O 1,1
%A _Alexander Adamchuk_, May 26 2007
%E More terms from _Robert G. Wilson v_, Jun 01 2007
|