OFFSET
1,4
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[Mod[2^m-1, m], {m, 6!}] (* Vladimir Joseph Stephan Orlovsky, Feb 11 2010 *)
PROG
(PARI) vector(80, n, (2^n-1) %n) \\ Michel Marcus, Jan 16 2015
(Haskell)
a082495 n = a015910 n + a048298 n - 1 -- Reinhard Zumkeller, Oct 17 2015
(Python)
def A082495(n): return (m if (m:=pow(2, n, n)) else n)-1 # Chai Wah Wu, Dec 01 2022
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Anonymous, Apr 28 2003
STATUS
approved