OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MAPLE
A167794 := proc(n)
option remember;
if n =1 then
11;
else
for a from procname(n-1)+1 do
if numtheory[order](6, a) = numtheory[phi](a) then
return a;
end if;
end do:
end if;
end proc:
seq(A167794(n), n=1..80) ; # R. J. Mathar, Sep 15 2021
MATHEMATICA
pr=6; Select[Range[2, 2000], MultiplicativeOrder[pr, # ] == EulerPhi[ # ] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Nov 12 2009
STATUS
approved