A086837 Brilliant Sarrus numbers.

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

Offset: 1

Author

Jason Earls, Aug 08 2003

Keywords

• base
• nonn

Examples

			2701 is a term because 2^2700 == 1 (mod 2701) and 2701 = 37*73.
		

References

• J. Earls, Mathematical Bliss, Pleroma Publications, 2009, page 10. [From Jason Earls, Nov 21 2009]

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Intersection of A001567 and A078972.

Cf. A084653.

Programs

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 *)

Extensions

More terms from Jack Brennen, Dec 21 2004