A072632 Solutions to A072631[n]=0.

1, 3, 8, 21, 55, 149, 404, 1097, 2981, 8104, 22027, 59875, 162755, 442414, 1202605, 3269018

Offset: 1

Author

Labos Elemer, Jun 28 2002

Keywords

• more
• nonn

Comments

Essentially the same as A001671.

Examples

			Compare with A072610 [related to A004648].
		

Crossrefs

Cf. A004648, A072608, A072609, A072610, A072630, A072631, A072610.

Programs

Mathematica

Do[s=Floor[Mod[Floor[n*Log[n]]//N, n]]; If[s==0, Print[n]], {n, 1, 10000000}]