%I A074379
%S A074379 41041,62745,63973,75361,101101,126217,172081,188461,278545,340561,
%T A074379 449065,552721,656601,658801,670033,748657,838201,852841,997633,
%U A074379 1033669,1082809,1569457,1773289,2100901,2113921,2433601,2455921
%N A074379 Super-Carmichael numbers with exactly 4 factors.
%C A074379 Super-Carmichael numbers are Carmichael numbers (A002997) for which Moebius 
               function mu(n) is 1 (A008683). There are no super-Carmichael numbers 
               with exactly 2 factors since Carmichael numbers must have at least 
               3 factors.
%e A074379 41041 = 7 * 11 * 13 * 41, 62745 = 3 * 5 * 47 * 89, ...
%t A074379 p = Table[ Prime[i], {i, 1, 10}]; f[n_] := Union[ PowerMod[ Select[p, 
               GCD[ #, n] == 1 & ], n - 1, n]]; Select[ Range[2500000], !PrimeQ[ 
               # ] && OddQ[ # ] && Length[ FactorInteger[ # ]] == 4 && MoebiusMu[ 
               # ] == 1 && f[ # ] == {1} & ]
%Y A074379 Cf. A002997, A006931.
%Y A074379 Sequence in context: A033532 A047828 A141711 this_sequence A027577 A128150 
               A165114
%Y A074379 Adjacent sequences: A074376 A074377 A074378 this_sequence A074380 A074381 
               A074382
%K A074379 nonn
%O A074379 1,1
%A A074379 Jani Melik (jani_melik(AT)hotmail.com), Sep 24 2002
%E A074379 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 03 
               2002