A103338 Largest primitive root of numbers in sequence A103336.

0, 1, 8, 14, 15, 21, 27, 24, 35, 33, 35, 34, 45, 51, 55, 56, 55, 63, 69, 68, 69, 77, 77, 75, 80, 77, 86, 91, 92, 99, 104, 110, 115, 117, 115, 123, 118, 128, 117, 134, 135, 141, 147, 146, 152, 153, 155, 159, 165, 171, 175, 176, 189, 188, 189, 195, 207, 207, 214

Offset: 1

Author

Harry J. Smith, Jan 31 2005

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Primitive Root.

Crossrefs

Cf. A001918, A046144, A046145, A046146, A103309, A103310, A103335, A103336, A103337.

Programs

Maple

f:= proc(n) local m; uses NumberTheory;
  if n::odd then
    if NumberOfPrimeFactors(n,distinct) > 1 then return NULL fi;
  elif n mod 4 = 0 or NumberOfPrimeFactors(n,distinct) > 2 then return NULL
  fi;
  m:= PrimitiveRoot(n, ith=Totient(Totient(n)));
  if isprime(m) then NULL else m fi
end proc:
f(1):= 0:map(f, [$1..300]); # Robert Israel, Dec 01 2024

Extensions

Offset changed by Robert Israel, Dec 01 2024