A177920 Numbers k such that k^3 divides 20^(k^2) - 1.
1, 19, 7805561, 1432001198261, 3661225986659, 58130944174609, 187470481770989
Offset: 1
Crossrefs
Programs
-
Mathematica
Join[{1}, Select[Range[10000000], PowerMod[20, #^2, #^3] == 1 &]] (* Robert Price, Apr 04 2020 *)
Extensions
a(4)-a(7) from Max Alekseyev, Oct 02 2010
Comments