%I A110885
%S A110885 399,5719,20705,80189,120581,162687,482143,663679,1162349
%N A110885 Lucas-Carmichael numbers n that are not == 11 mod 12. There are 101 Lucas-Carmichael 
               numbers out to 2*m+1, m=2*10^6 and all but the above 9 are 11 mod 
               12.
%e A110885 5719=7*19*43=7 mod 12.
%p A110885 with(numtheory); LC:=[]: for z from 1 to 1 do for m from 1 to 2000000 
               do n:=2*m+1; if not(isprime(n)) and issqrfree(n) then PF:=factorset(n); 
               lcb:=true; for x in PF do if (n+1) mod (x+1) > 0 then lcb:=false 
               fi od; if lcb then LC:=[op(LC),n]; fi; fi; #not od; #m od; #z select(proc(z) 
               not(z mod 12 = 11) end, LC);
%Y A110885 Cf. A006972.
%Y A110885 Sequence in context: A006972 A065767 A166915 this_sequence A140892 A115470 
               A061042
%Y A110885 Adjacent sequences: A110882 A110883 A110884 this_sequence A110886 A110887 
               A110888
%K A110885 nonn
%O A110885 1,1
%A A110885 Walter A. Kehowski (wkehowski(AT)cox.net), Sep 19 2005