|
|
A080747
|
|
Sarrus numbers with more than 2 distinct prime factors.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Edited by C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 19 2004
|
|
STATUS
|
approved
|
|
|
|