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,1

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

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

Intersection of A001567 and A078972.

Cf. A084653.

Sequence in context: A276733 A050217 A214305 * A020230 A087716 A084653

Adjacent sequences: A086834 A086835 A086836 * A086838 A086839 A086840

Keyword

base,nonn

Author

Jason Earls, Aug 08 2003

Extensions

More terms from Jack Brennen, Dec 21 2004

Status

approved