login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%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