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