%I #5 Oct 15 2013 22:31:25
%S 1,3,8,21,55,149,404,1097,2981,8104,22027,59875,162755,442414,1202605,
%T 3269018
%N Solutions to A072631[n]=0.
%C Essentially the same as A001671.
%e Compare with A072610 [related to A004648].
%t Do[s=Floor[Mod[Floor[n*Log[n]]//N, n]]; If[s==0, Print[n]], {n, 1, 10000000}]
%Y Cf. A004648, A072608, A072609, A072610, A072630, A072631, A072610.
%K more,nonn
%O 1,2
%A _Labos Elemer_, Jun 28 2002