%I A153581
%S A153581 721801,8646121,10403641,22885129,36307981,42702661,46094401,48064021
%N A153581 Pseudoprimes to bases 2,3,5 and 7 which are neither 1 nor Carmichael 
               numbers A002997
%t A153581 Select[Range[5*10^7], ! PrimeQ[ # ] && PowerMod[2, # - 1, # ] == 1 && 
               PowerMod[3, # - 1, # ] == 1 && PowerMod[5, # - 1, # ] == 1 && && 
               PowerMod[7, # - 1, # ] == 1 && Mod[ #, CarmichaelLambda[ # ]] != 
               1 &] (*Ray Chandler*)
%Y A153581 A002997, A083737, A122780, A153508, A153513, A153514, A153515, A153519, 
               A153580
%Y A153581 Sequence in context: A102501 A015346 A153580 this_sequence A100383 A156867 
               A156868
%Y A153581 Adjacent sequences: A153578 A153579 A153580 this_sequence A153582 A153583 
               A153584
%K A153581 nonn
%O A153581 1,1
%A A153581 Ray Chandler & Artur Jasinski (grafix(AT)csl.pl), Dec 28 2008