A177918 Numbers k such that k^3 divides 18^(k^2) - 1.
1, 17, 343927, 1414961, 28626075991, 610559655569, 5417488064959
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[350000], Mod[PowerMod[18, #^2, #^3] - 1, #^3] == 0 &] (* Julien Kluge, Sep 20 2016 *)
Extensions
Three more terms from Max Alekseyev, Oct 02 2010
Comments