|
|
A086837
|
|
Brilliant Sarrus numbers.
|
|
1
|
|
|
341, 1387, 2047, 2701, 31621, 42799, 49141, 49981, 60701, 83333, 88357, 90751, 104653, 129889, 130561, 150851, 162193, 164737, 219781, 226801, 241001, 249841, 282133, 1194649, 1678541, 2035153, 2134277, 2163001, 2284453, 2304167, 2491637
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
REFERENCES
|
J. Earls, Mathematical Bliss, Pleroma Publications, 2009, page 10. [From Jason Earls, Nov 21 2009]
|
|
LINKS
|
|
|
EXAMPLE
|
2701 is a term because 2^2700 == 1 (mod 2701) and 2701 = 37*73.
|
|
MATHEMATICA
|
brilQ[n_] := Block[{fi = FactorInteger@n}, Plus @@ Last /@ fi == 2 && Floor[ Log[10, fi[[1, 1]]]] == Floor[Log[10, fi[[-1, 1]]]]]; Select[Range[10^5], PowerMod[2, # - 1, #] == 1 && brilQ[#] &] (* Amiram Eldar, Jun 28 2019 after Robert G. Wilson v at A078972 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|