A080747 Sarrus numbers with more than 2 distinct prime factors.

561, 645, 1105, 1729, 1905, 2465, 2821, 4371, 6601, 8481, 8911, 10585, 11305, 12801, 13741, 13981, 15841, 16705, 18705, 23001, 25761, 29341, 30121, 30889, 33153, 34945, 39865, 41041, 41665, 46657, 52633, 55245, 57421, 62745, 63973, 68101, 72885, 74665, 75361

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Maple

for n from 1 to 60000 do if not isprime(n) and modp(2^(n-1), n)=1 and nops(ifactors(n)[2])>2 then printf("%d, ", n) fi od: # C. Ronaldo

Mathematica

Select[Range[76000], PowerMod[2, #-1, #] == 1 && PrimeNu[#] > 2 &] (* Giovanni Resta, Aug 20 2018 *)

Crossrefs

Cf. A001567.

Sequence in context: A344706 A259172 A192297 * A306487 A074380 A215672

Adjacent sequences: A080744 A080745 A080746 * A080748 A080749 A080750

Keyword

nonn

Author

Benoit Cloitre, Mar 08 2003

Extensions

Edited by C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 19 2004

More terms from Giovanni Resta, Aug 20 2018

Status

approved