A112443 Pseudoprimes (base-2) equal to the product of 5 primes not necessarily distinct.

825265, 1050985, 1275681, 2113665, 2503501, 2615977, 2882265, 3370641, 3755521, 4670029, 4698001, 4895065, 5034601, 6242685, 6973057, 7428421, 8322945, 9223401, 9224391, 9890881, 10877581, 12067705, 12945745, 13757653, 13823601, 13992265, 16778881, 17698241, 18007345

Offset: 1

Author

Shyam Sunder Gupta, Dec 11 2005

Keywords

• easy
• nonn

Examples

			a(1) = 825265 = 5*7*17*19*73.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Intersection of A014614 and A001567.

Programs

Mathematica

s={}; Do[If[PrimeOmega[n] == 5 && PowerMod[2, n - 1, n] == 1, AppendTo[s, n]], {n, 1, 10^7}]; s (* Amiram Eldar, Nov 10 2019 *)

Extensions

More terms from Amiram Eldar, Nov 10 2019