A093665 Numbers k that divide 2^(k^3) + 1.

1, 3, 9, 27, 57, 81, 171, 243, 513, 729, 1083, 1467, 1539, 2187, 3249, 4401, 4617, 6561, 9747, 13131, 13203, 13851, 19683, 20577, 27873, 29241, 32547, 39393, 39609, 41553, 59049, 61731, 83619, 87723, 97641, 118179, 118827, 124659, 177147, 185193

Offset: 1

Author

Robert G. Wilson v, Apr 03 2004

Keywords

• nonn

Crossrefs

Cf. A006521, A093546.

Programs

Mathematica

Select[ Range[ 249488], PowerMod[2, #^3, # ] == # - 1 &]