Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Nov 10 2019 13:45:11
%S 38504389105,79753114441,86757431761,95665544065,101135235565,
%T 160727267701,184395152305,232250619601,241543943641,267149008945,
%U 281825521705,298045705321,306177962545,360805362841,432207073585,435343749841,473056144561,503876371285,518896999621
%N Pseudoprimes (base-2) equal to the product of 8 primes not necessarily distinct.
%H Amiram Eldar, <a href="/A112446/b112446.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1) = 38504389105 = 5*7*13*17*19*37*73*97.
%t s={}; Do[If[PrimeOmega[n] == 8 && PowerMod[2, n - 1, n] == 1, AppendTo[s, n]], {n, 1, 10^11}]; s (* _Amiram Eldar_, Nov 10 2019 *)
%Y Intersection of A046310 and A001567.
%K easy,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Dec 11 2005
%E More terms from _Amiram Eldar_, Nov 10 2019