|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
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())
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|