[go: up one dir, main page]

login
A112445
Pseudoprimes (base 2) equal to the product of 7 primes not necessarily distinct.
1
370851481, 1310486905, 1452092005, 1553860945, 2719940041, 3328293745, 3860623585, 5394826801, 5612626041, 5659475185, 6295936465, 8857509661, 9234602385, 10780911505, 10975165201, 11718888181, 12254138065, 12416553721, 12452890681, 13577445505, 14795826661
OFFSET
1,1
LINKS
EXAMPLE
a(1) = 370851481 = 7*11*13*17*19*31*37.
MATHEMATICA
s={}; Do[If[PrimeOmega[n] == 7 && PowerMod[2, n - 1, n] == 1, AppendTo[s, n]], {n, 1, 2*10^9}]; s (* Amiram Eldar, Nov 10 2019 *)
CROSSREFS
Intersection of A046308 and A001567.
Sequence in context: A017471 A017603 A233804 * A101640 A233798 A230528
KEYWORD
easy,nonn
AUTHOR
Shyam Sunder Gupta, Dec 11 2005
EXTENSIONS
More terms from Amiram Eldar, Nov 10 2019
STATUS
approved