A097362 a(n) = (n+1)/2 if n is odd, n+2 otherwise.
1, 4, 2, 6, 3, 8, 4, 10, 5, 12, 6, 14, 7, 16, 8, 18, 9, 20, 10, 22, 11, 24, 12, 26, 13, 28, 14, 30, 15, 32, 16, 34, 17, 36, 18, 38, 19, 40, 20, 42, 21, 44, 22, 46, 23, 48, 24, 50, 25, 52, 26, 54, 27, 56, 28, 58, 29, 60, 30, 62, 31, 64, 32, 66, 33, 68, 34, 70, 35, 72, 36, 74, 37
Offset: 1
Links
- Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000
- Index entries for linear recurrences with constant coefficients, signature (0,2,0,-1).
Crossrefs
Cf. A065423.
Programs
-
Mathematica
a[n_] := If[OddQ[n], (n + 1)/2, n + 2]; Table[a[n], {n, 100}] (* Stefan Steinerberger, May 13 2006 *) LinearRecurrence[{0,2,0,-1},{1,4,2,6},100] (* Harvey P. Dale, Sep 14 2016 *)
-
PARI
a(n)=if(n%2,(n+1)/2,n+2) \\ Charles R Greathouse IV, Sep 02 2015
Formula
G.f.: (2 + x)/(1 - x^2)^2. - Arkadiusz Wesolowski, Dec 28 2011
Extensions
More terms from Stefan Steinerberger, May 13 2006
Comments