MATHEMATICA
a[n_] := LCM @@ Range[n] + n - 1; a[0] = 1; Table[a[n], {n, 0, 27}] (* From _Jean-François Alcover, _, Dec 16 2011 *)
a[n_] := LCM @@ Range[n] + n - 1; a[0] = 1; Table[a[n], {n, 0, 27}] (* From _Jean-François Alcover, _, Dec 16 2011 *)
_Reinhard Zumkeller_, , <a href="/A065500/b065500.txt">Table of n, a(n) for n = 0..100</a>
_Reinhard Zumkeller, _, <a href="/A065500/b065500.txt">Table of n, a(n) for n = 0..100</a>
a065500 n = a003418 n + n - signum n -- _Reinhard Zumkeller, _, Sep 15 2011
reviewed
approved
proposed
reviewed
editing
proposed
a[n_] := LCM @@ Range[n] + n - 1; a[0] = 1; Table[a[n], {n, 0, 27}] (* From Jean-François Alcover, Dec 16 2011 *)
approved
editing
proposed
approved
editing
proposed
Reinhard Zumkeller, <a href="/A065500/a065500b065500.txt">TITLE FOR LINKTable of n, a(n) for n = 0..100</a>
approved
editing