1,2
Table of n, a(n) for n=1..10.
1
s = 1; Do[ If[ Mod[ s, n ] == 0, Print[n]]; s = s + (n + 1)* 3^n, {n, 1, 12600}]
Sequence in context: A208740 A127981 A089453 * A189588 A095941 A210843
Adjacent sequences: A057156 A057157 A057158 * A057160 A057161 A057162
nonn
Robert G. Wilson v, Sep 13 2000
approved