A057297 Numbers n such that n | 8^n + 7^n + 1.

1, 2, 6, 38, 722, 874, 1102, 5934, 13718, 19342, 260642, 379794, 438254, 809362, 1234806, 4952198

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A005740 A367904 A006536 * A005530 A353535 A072191

Adjacent sequences: A057294 A057295 A057296 * A057298 A057299 A057300

Keyword

nonn

Author

Robert G. Wilson v, Sep 22 2000

Extensions

More terms (a(15) and a(16)) from Harvey P. Dale, Jan 27 2015

Status

approved