OFFSET
1,1
LINKS
Eric M. Schmidt, Table of n, a(n) for n = 1..1000
E. Lehmer, Artiads characterized, J. Math. Anal. Appl. 15 1966 118-131. See page 126 (but beware errors).
E. Lehmer, Artiads characterized, J. Math. Anal. Appl. 15 1966 118-131 [annotated and corrected scanned copy]
PROG
(Sage)
def is_septic_artiad(n) :
if not (n % 14 == 1 and is_prime(n)) : return False
R.<t> = PolynomialRing(GF(n))
return 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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 01 2016
EXTENSIONS
Definition added and sequence extended and corrected by Eric M. Schmidt, Apr 02 2016
STATUS
approved