OFFSET
1,1
LINKS
Eric M. Schmidt, Table of n, a(n) for n = 1..100
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
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