login
Solutions to A072631[n]=0.
0

%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