%I #12 Mar 07 2024 08:50:45
%S 22,154,638,946,1738,2926,12166,15862,33022,125686,248218,285286,
%T 358534,596926,697334,1007566,3426346,3675826,3755158,4147522,6518974,
%U 19866946,26336926,34220746,35083426,46365814,54148654,54342046,72789466
%N Even pseudoprimes to base 23.
%H Robert G. Wilson v, <a href="/A130438/b130438.txt">Table of n, a(n) for n = 1..78</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 lst = {}; Do[ If[ PowerMod[17, 2n - 1, 2n] == 1, AppendTo[lst, 2n]], {n, 2, 2*10^9}]; lst (* _Robert G. Wilson v_, Jun 01 2007 *)
%Y Cf. A020151, A006935, A130433, A090082, A090083, A090084, A090085, A130434, A130435, A130436, A130437, A130439, 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
|