A141711 Carmichael numbers with more than 3 prime factors.
41041, 62745, 63973, 75361, 101101, 126217, 172081, 188461, 278545, 340561, 449065, 552721, 656601, 658801, 670033, 748657, 825265, 838201, 852841, 997633, 1033669, 1050985, 1082809, 1569457, 1773289, 2100901, 2113921, 2433601
Offset: 1
Keywords
Examples
a(17)=825265 is the least Carmichael number having more than 4 divisors, thus the sequence differs from A074379 only from that term on.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
ok[n_] := Divisible[n - 1, CarmichaelLambda[n]] && Length[FactorInteger[n]] > 3; Select[ Range[3*10^6], ok] (* Jean-François Alcover, Sep 23 2011 *)
-
PARI
A2997=readvec("b002997.gp"); A002997(n)=A2997[n]; for( n=1,100, omega( A002997(n) ) > 3 & print1( A002997(n)", "))
Comments