login
A270801
Septic hyperartiads: septic artiads (A270800) for which 7 is a 7th power residue.
2
665897, 741413, 794207, 859601, 876611, 892627, 980911, 1102249, 1116977, 1123879, 1129213, 1163653, 1228543, 1237139, 1393771, 1434553, 1453019, 1471079, 1513163, 1570577, 1588133, 1608769, 1638211, 1638743, 1645253, 1670887, 1702933, 1704137, 1785337
OFFSET
1,1
LINKS
E. Lehmer, Artiads characterized, J. Math. Anal. Appl. 15 1966 118-131.
E. Lehmer, Artiads characterized, J. Math. Anal. Appl. 15 1966 118-131 [annotated and corrected scanned copy]
PROG
(Sage)
def is_septic_hyperartiad(n) :
if not (n % 14 == 1 and is_prime(n)) : return false
R.<t> = PolynomialRing(GF(n))
return 7.powermod((n-1)//7, n) == 1 and all(r[0]^((n-1)//7) == 1 for r in (t^3 + t^2 - 2*t - 1).roots())
# Eric M. Schmidt, Apr 02 2016
CROSSREFS
Sequence in context: A038816 A144132 A069373 * A348832 A162840 A233817
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 01 2016, typo corrected Apr 02 2016
EXTENSIONS
Definition corrected by and more terms from Eric M. Schmidt, Apr 02 2016
STATUS
approved