A057351 Numbers k that divide 4^k + 3^k + 1.

1, 2, 26, 338, 2054, 4394, 13282, 26702, 46306, 57122, 59566, 162266, 221446, 347126, 404293, 742586, 760318, 1301638, 2031406, 2109458, 2857114, 4512638, 4752982, 8340826, 8634886, 9653618, 10066654, 12819014, 19012162, 21263026, 25885054, 27422954, 34901542

Offset: 1

Author

Robert G. Wilson v, Sep 22 2000

Keywords

• nonn
• hard

Links

• Michael S. Branicky, Table of n, a(n) for n = 1..82

Crossrefs

Cf. A074506.

Programs

Mathematica

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

Extensions

a(18) from Hugo Pfoertner, Jan 05 2022

a(19)-a(33) from Michael S. Branicky, Jan 06 2022