A057845 Numbers n such that n | 4^n + 2^n + 1.

1, 7, 49, 343, 2359, 2401, 16513, 16807, 115591, 117649, 794983, 809137, 823543

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A057833 A014949 A228738 * A269617 A269581 A269433

Adjacent sequences: A057842 A057843 A057844 * A057846 A057847 A057848

Keyword

nonn

Author

Robert G. Wilson v, Nov 09 2000

Status

approved