OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 45593065 = 5*7*17*19*37*109.
MATHEMATICA
s={}; Do[If[PrimeOmega[n] == 6 && PowerMod[2, n - 1, n] == 1, AppendTo[s, n]], {n, 1, 10^8}]; 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