A087965 - OEIS

A087965

Numbers k such that 2^k - 1 is divisible by (k-1).

2, 4, 16, 36, 120, 256, 456, 1296, 2556, 2704, 3816, 3856, 4356, 5544, 6480, 8008, 9216, 10440, 10620, 11952, 16212, 22896, 23436, 26320, 26796, 27840, 28680, 35208, 43056, 44100, 47520, 47880, 49680, 51120, 57240, 61920, 62568, 63168, 63936

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

Solutions to 2^x == 1 (mod x-1).

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..300 from Harvey P. Dale)

MATHEMATICA

Join[{2}, Select[Range[2, 64000], PowerMod[2, #, #-1]==1&]] (* Harvey P. Dale, Jun 01 2021 *)

PROG

(PARI) is(k) = !(k % 2) && Mod(2, k-1)^k == 1; \\ Amiram Eldar, Jul 10 2024

CROSSREFS

Cf. A006521.

Sequence in context: A053038 A001088 A101926 * A074411 A189838 A247219

Adjacent sequences: A087962 A087963 A087964 * A087966 A087967 A087968

KEYWORD

nonn

AUTHOR

Labos Elemer, Sep 22 2003

STATUS

approved