A057243 Numbers k that divide 8^k + 7^k + 6^k + 5^k.

1, 2, 6, 13, 58, 169, 2197, 4069, 4303, 28561, 52897, 89078, 122681, 145457, 234526, 371293, 442074, 687661, 1273597, 1558427, 1664221, 2684903, 3080233, 4826809, 6589141, 7104253, 8939593, 10178701, 14273909, 16556761, 28194101, 34903739, 45643351, 47154211, 62748517, 99341411, 116214709

Offset

1,2

Links

Table of n, a(n) for n=1..37.

Mathematica

Select[ Range[ 1, 10^5 ], Mod[ PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ], # ] == 0 & ]

Prog

(PARI) for(n=1, 10^10, if(sum(k=5, 8, Mod(k, n)^n)==0, print1(n, ", "))) \\ Joerg Arndt, Feb 23 2017

Crossrefs

Sequence in context: A241784 A211995 A245010 * A294130 A012470 A266960

Adjacent sequences: A057240 A057241 A057242 * A057244 A057245 A057246

Keyword

nonn

Author

Robert G. Wilson v, Sep 20 2000

Extensions

More terms from Vincenzo Librandi and Joerg Arndt, Feb 23 2017

Status

approved