A014956 Positive integers k such that k divides 14^k - 1.
1, 13, 169, 2041, 2197, 26533, 28561, 114413, 320437, 344929, 371293, 1487369, 4165681, 4484077, 4826809, 17962841, 19335797, 24355253, 50308609, 54153853, 58293001, 62748517, 77457601, 233516933, 249302027, 251365361, 316618289
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
Join[{1}, Select[Range[2000000], PowerMod[14, #, #] == 1 &]] (* Robert Price, Mar 31 2020 *)
Extensions
2 more terms from R. J. Mathar, Mar 05 2008
a(8)-a(23) from Alexander Adamchuk, May 14 2010
a(24)-a(44) from Alexander Adamchuk, May 16 2010
Edited by Max Alekseyev, Sep 10 2011
Comments