1,2

s = 0; Do[ s = s + n!; If[ Mod[ s, n ] == 0, Print[ n ] ], { n, 1, 27390 } ]

Cf. A007489.

Sequence in context: A027895 A027890 A018282 this_sequence A027894 A004668 A106305

Adjacent sequences: A057242 A057243 A057244 this_sequence A057246 A057247 A057248

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 21 2000