%I #8 Nov 10 2019 13:44:25
%S 825265,1050985,1275681,2113665,2503501,2615977,2882265,3370641,
%T 3755521,4670029,4698001,4895065,5034601,6242685,6973057,7428421,
%U 8322945,9223401,9224391,9890881,10877581,12067705,12945745,13757653,13823601,13992265,16778881,17698241,18007345
%N Pseudoprimes (base-2) equal to the product of 5 primes not necessarily distinct.
%H Amiram Eldar, <a href="/A112443/b112443.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1) = 825265 = 5*7*17*19*73.
%t 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 *)
%Y Intersection of A014614 and A001567.
%K easy,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Dec 11 2005
%E More terms from _Amiram Eldar_, Nov 10 2019