%I A130443
%S A130443 6,14,42,526974,9157582,21001206,49419154,156418318,157058362,223741702,
%T A130443 467016562,531330346,601692022,681377698,888739174,931053466,1037629198,
%U A130443 1390950926,1392718618,2175608494,2377982166,3045063946,5136468646
%N A130443 Even pseudoprimes to base 43.
%H A130443 Robert G. Wilson v, <a href="b130443.txt">Table of n, a(n) for n = 0..46</
               a>.
%H A130443 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               FermatPseudoprime.html">Fermat Pseudoprime</a>.
%H A130443 <a href="Sindx_Ps.html#pseudoprimes">Index entries for sequences related 
               to pseudoprimes</a>
%t A130443 lst = {}; Do[ If[ PowerMod[43, 2n - 1, 2n] == 1, AppendTo[lst, 2n]], 
               {n, 2, 1800000000}]; lst - Robert G. Wilson v (rgwv(at)rgwv.com), 
               Jun 01 2007
%Y A130443 Cf. A020171, A006935, A130433, A090082, A090083, A090084, A090085, A130434, 
               A130435, A130436, A130437, A130438, A130439, A130440, A130441, A130442.
%Y A130443 Sequence in context: A069166 A015892 A093369 this_sequence A005515 A114705 
               A107301
%Y A130443 Adjacent sequences: A130440 A130441 A130442 this_sequence A130444 A130445 
               A130446
%K A130443 nonn
%O A130443 1,1
%A A130443 Alexander Adamchuk (alex(AT)kolmogorov.com), May 26 2007, Jun 20 2007
%E A130443 More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Jun 01 2007