A144755 Primes which divide none of overpseudoprimes to base 2 (A141232).
2, 3, 5, 7, 11, 13, 17, 19, 31, 41, 43, 73, 127, 151, 241, 257, 331, 337, 683, 2731, 5419, 8191, 43691, 61681, 65537, 87211, 131071, 174763, 262657, 524287, 599479, 2796203, 15790321, 18837001, 22366891, 715827883, 2147483647, 4278255361
Offset: 1
Keywords
Examples
Overpseudoprimes to base 2 are odd, then a(1)=2.
Crossrefs
Programs
-
Mathematica
b=2; t={}; Do[c=Cyclotomic[n,b]; q=c/GCD[n,c]; If[PrimePowerQ[q], p=FactorInteger[q][[1,1]]; If[p<10^12, AppendTo[t,p]; Print[{n,p}]]], {n,1000}]; t=Sort[t] (* T. D. Noe, Apr 13 2010 *)
-
PARI
{ is_a144755(p) = my(q,m,g); q=znorder(Mod(2,p)); m=2^q-1; fordiv(q,d, if(d
1,m\=g))); m==p; } \\ Max Alekseyev, Feb 10 2024
Extensions
Extended by T. D. Noe, Apr 13 2010
b-file deleted by Max Alekseyev, Feb 10 2024.
Comments