A177243 Numbers k such that k^3 divides 10^(k^2) - 1.
1, 3, 9, 111, 333, 1467, 6813, 54279, 84573, 252081, 607947, 665667, 1001001, 1110519, 1823841, 3003003, 3129201, 12914001, 13785399, 22161609, 22957083, 37037037, 41089203, 49235049, 64021761, 92840751, 108503721, 111111111
Offset: 1
Keywords
Programs
-
Mathematica
Join[{1},Select[Range[1112*10^5],PowerMod[10,#^2,#^3]==1&]] (* Harvey P. Dale, Sep 10 2019 *)