login
A057845
Numbers n such that n | 4^n + 2^n + 1.
0
1, 7, 49, 343, 2359, 2401, 16513, 16807, 115591, 117649, 794983, 809137, 823543
OFFSET
1,2
MATHEMATICA
Select[ Range[ 10^6 ], Mod[ PowerMod[ 4, #, # ] + PowerMod[ 2, #, # ] + 1, # ] == 0 & ]
CROSSREFS
Sequence in context: A057833 A014949 A228738 * A269617 A269581 A269433
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 09 2000
STATUS
approved