|
| |
|
|
A131055
|
|
1 followed by repeats of 2*k.
|
|
4
| |
|
|
1, 2, 2, 4, 4, 6, 6, 8, 8, 10, 10, 12, 12, 14, 14, 16, 16, 18, 18, 20, 20, 22, 22, 24, 24, 26, 26, 28, 28, 30, 30, 32, 32, 34, 34, 36, 36, 38, 38, 40, 40, 42, 42, 44, 44, 46, 46, 48, 48, 50, 50, 52, 52, 54, 54, 56, 56, 58, 58, 60, 60, 62, 62, 64, 64, 66, 66, 68, 68, 70, 70, 72
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| Inverse binomial transform of A131056: (1, 3, 7, 17, 41, 97, 225,...).
a(n)=1+sum{i=0..n}{1-(-1)^i-[i!^2 mod (i+1)]*[(i+1)!^2 mod (i+2)]}, with n>=0 - Paolo P. Lava (paoloplava(AT)gmail.com), Jul 24 2007
|
|
|
MAPLE
| P:=proc(n) local i, j, k; for i from 0 by 1 to n do j:=1+sum('1-(-1)^k-(k!^2 mod (k+1))*((k+1)!^2 mod (k+2))', 'k'=0..i); print(j); od; end: P(100); - Paolo P. Lava (paoloplava(AT)gmail.com), Jul 24 2007
|
|
|
MATHEMATICA
| Join[{1}, Table[2*Floor[i/2], {i, 2, 81}]] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jun 13 2007
|
|
|
CROSSREFS
| Cf. A131056.
Sequence in context: A116568 A061106 A161764 * A052928 A137501 A005186
Adjacent sequences: A131052 A131053 A131054 * A131056 A131057 A131058
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Gary W. Adamson (qntmpkt(AT)yahoo.com), Jun 12 2007
|
|
|
EXTENSIONS
| More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jun 13 2007
|
| |
|
|
