OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 38504389105 = 5*7*13*17*19*37*73*97.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Shyam Sunder Gupta, Dec 11 2005
EXTENSIONS
More terms from Amiram Eldar, Nov 10 2019
STATUS
approved