A241582 Records in A131644.

0, 1, 2, 4, 8, 16, 20, 25, 31, 32, 37, 42, 43, 56, 58, 71, 72, 97, 109, 114, 120, 136, 153, 158, 172, 199, 220, 226, 249, 252, 254, 280, 305, 316, 340, 392, 394, 400, 448, 452, 457, 486, 499, 529, 537, 546, 572, 588, 619, 657, 704, 737, 809, 814, 872, 921, 934, 964, 973, 993, 1014, 1024, 1048, 1074, 1113

Offset

1,3

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

Module[{a = 0, rec = -1}, Table[If[(a = PowerMod[2, a, k]) > rec, rec = a, Nothing], {k, 1500}]] (* Paolo Xausa, Jan 20 2026 *)

Prog

(Haskell)
a241582 n = a241582_list !! (n-1)
(a241582_list, a241583_list) =  unzip $ f [1..] a131644_list (-1) where
   f (x:xs) (y:ys) r = if y > r then (y, x) : f xs ys y else f xs ys r
-- Reinhard Zumkeller, Jan 30 2015

Crossrefs

Cf. A131644, A241583, A192362.

Sequence in context: A087257 A033496 A109713 * A082003 A326750 A329561

Adjacent sequences: A241579 A241580 A241581 * A241583 A241584 A241585

Keyword

nonn

Author

N. J. A. Sloane, May 06 2014

Status

approved