A057244 Numbers n such that n | 7^n + 6^n + 5^n + 4^n.

1, 2, 6, 11, 14, 98, 121, 253, 686, 1331, 1969, 2783, 4802, 5819, 13211, 14641, 22627, 30613, 33614, 39634, 45991, 60643, 64009, 65198, 87967, 133837, 159643, 161051, 172186, 184026, 192533, 235298, 278179, 336743, 667073, 704099, 967637

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A057976 A140486 A138327 * A241672 A376359 A035487

Adjacent sequences: A057241 A057242 A057243 * A057245 A057246 A057247

Keyword

nonn

Author

Robert G. Wilson v, Sep 20 2000

Status

approved