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,2

Links

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

Mathematica

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

Crossrefs

Cf. A006521, A093546.

Sequence in context: A057829 A181047 A014948 * A093546 A015955 A357008

Adjacent sequences: A093662 A093663 A093664 * A093666 A093667 A093668

Keyword

nonn

Author

Robert G. Wilson v, Apr 03 2004

Status

approved