A072632 Solutions to A072631[n]=0.
1, 3, 8, 21, 55, 149, 404, 1097, 2981, 8104, 22027, 59875, 162755, 442414, 1202605, 3269018
Offset: 1
Examples
Compare with A072610 [related to A004648].
Programs
-
Mathematica
Do[s=Floor[Mod[Floor[n*Log[n]]//N, n]]; If[s==0, Print[n]], {n, 1, 10000000}]
Comments