OFFSET
1,1
LINKS
A. Weimholt, Table of n, a(n) for n=1,...,10000
EXAMPLE
a(6) = 7, because A167408(6) = 9, and divisors of 9 = {1,9,3} == {1,2,3} mod 7.
MATHEMATICA
orderlyQkValue[n_] := (For[dd = Divisors[n]; tau = Length[dd]; k = 2, k <= Max[tau + 4, Last[dd] - 2], k++, If[Union[Mod[dd, k]] == Range[tau], Return[{True, k}]]]; {False, 0}); A167411List = Select[{#, orderlyQkValue[#]}& /@ Range[400] , #[[2, 1]]&][[All, 2, 2]] (* Jean-François Alcover, Nov 03 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Andrew Weimholt, Nov 03 2009
STATUS
approved