A215672 Fermat pseudoprimes to base 2 with three prime factors.
561, 645, 1105, 1729, 1905, 2465, 2821, 4371, 6601, 8481, 8911, 10585, 12801, 13741, 13981, 15841, 16705, 25761, 29341, 30121, 30889, 33153, 34945, 41665, 46657, 52633, 57421, 68101, 74665, 83665, 87249, 88561, 91001, 93961, 113201, 115921, 121465, 137149
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Eric Weisstein's World of Mathematics, Poulet Number
- Eric Weisstein's World of Mathematics, Carmichael Number
Programs
-
Mathematica
Select[Range[10^5], PrimeNu[#] == 3 && PowerMod[2, (# - 1), #] == 1 &] (* Amiram Eldar, Jun 28 2019 *)
-
PARI
is(n)=Mod(2,n)^n==2 && bigomega(n)==3 \\ Charles R Greathouse IV, Dec 07 2014
Comments