A215944 Fermat pseudoprimes to base 2 with three prime factors divisible by a smaller Fermat pseudoprime to base 2.
13981, 137149, 158369, 176149, 276013, 285541, 294409, 348161, 387731, 423793, 488881, 493697, 617093, 625921, 847261, 1052503, 1052929, 1104349, 1128121, 1152271, 1398101, 1461241, 1472353, 1507561, 1534541, 1549411, 1746289, 1840357, 1857241, 2299081
Offset: 1
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
- Eric Weisstein's World of Mathematics, Poulet Number
Programs
-
PARI
list(lim)=my(v=List(),t,psp); forprime(p=3,sqrtint(lim\3), forprime(q=p,lim\p\3, t=p*q; if(Mod(2,t)^t!=2, next); forprime(r=3, lim\t, psp=t*r; if(Mod(2,psp)^psp==2, listput(v,psp))))); Set(v) \\ Charles R Greathouse IV, Jun 30 2017
Comments