1,2
1
s = 1; Do[ If[ Mod[ s, n ] == 0, Print[n]]; s = s + (n + 1)* 3^n, {n, 1, 12600}]
Adjacent sequences: A057156 A057157 A057158 this_sequence A057160 A057161 A057162
Sequence in context: A029860 A127981 A089453 this_sequence A095941 A002727 A036629
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 13 2000
Search completed in 0.002 seconds