A081889 - OEIS

%I #14 Feb 20 2023 14:49:24

%S 1,2,3,5,7,11,19,21,23,31,35,41,43,53,57,69,87,93,95,101,115,141,173,

%T 203

%N Least primitive root corresponding to A081888(n).

%o (Python)

%o from sympy import primitive_root

%o from itertools import count, islice

%o def f(n): r = primitive_root(n); return r if r != None else 0

%o def agen(r=0): yield from ((m, r:=f(m))[1] for m in count(1) if f(m) > r)

%o print(list(islice(agen(), 18))) # _Michael S. Branicky_, Feb 13 2023

%Y Cf. A081888, A002229, A002230.

%K nonn,more

%O 1,2

%A _Sven Simon_, Mar 30 2003

%E a(24) from _Michael S. Branicky_, Feb 20 2023