A182208 Carmichael numbers divisible by 7.
1729, 2821, 6601, 8911, 15841, 41041, 52633, 63973, 101101, 126217, 172081, 188461, 670033, 748657, 825265, 838201, 997633, 1033669, 1082809, 1773289, 2628073, 4463641, 4909177, 6840001, 7995169, 8719921, 8830801, 9585541, 9890881
Offset: 1
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
- Eric Weisstein's World of Mathematics, Carmichael Number
Crossrefs
Programs
-
Mathematica
CarmichaelNbrQ[n_] := ! PrimeQ[n] && Mod[n, CarmichaelLambda@ n] == 1; 7 Select[ Range[2500000], CarmichaelNbrQ[ 7#] &] (* Robert G. Wilson v, Aug 24 2012 *)
-
PARI
Korselt(n)=my(f=factor(n));for(i=1,#f[,1],if(f[i,2]>1||(n-1)%(f[i,1]-1),return(0)));1 forstep(n=49,1e6,42,if(Korselt(n),print1(n", "))) \\ Charles R Greathouse IV, Oct 02 2012
Extensions
Corrected by Robert G. Wilson v, Aug 24 2012
Comments