OFFSET
1,1
COMMENTS
Includes n if n is in A167791 with n > 2048 and phi(n) not divisible by 11.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local i, t, s;
s:= numtheory:-phi(n);
for i from 2 do
t:= i^11;
if t >= n then return false fi;
if numtheory:-order(t, n) = s then return true fi;
od
end proc:
select(filter, [$2..10000]); # Robert Israel, Mar 02 2021
MATHEMATICA
filterQ[n_] := Module[{i, t, s}, s = EulerPhi[n]; For[i = 2, True, i++, t = i^11; If[t >= n, Return[False]]; If[MultiplicativeOrder[t, n] == s, Return[True]]]];
Select[Range[2, 10000], filterQ] (* Jean-François Alcover, Feb 02 2023, after Robert Israel *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hauke Worpel (hw1(AT)email.com), May 30 2003
STATUS
approved