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,3

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Primitive Root.

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

Crossrefs

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

Sequence in context: A219303 A376519 A082772 * A250004 A114456 A230422

Adjacent sequences: A103335 A103336 A103337 * A103339 A103340 A103341

Keyword

nonn

Author

Harry J. Smith, Jan 31 2005

Extensions

Offset changed by Robert Israel, Dec 01 2024

Status

approved