|
|
A154028
|
|
a(2n) = n*(n+1)/2, a(2n+1) = n!.
|
|
1
|
|
|
0, 1, 1, 1, 3, 2, 6, 6, 10, 24, 15, 120, 21, 720, 28, 5040, 36, 40320, 45, 362880, 55, 3628800, 66, 39916800, 78, 479001600, 91, 6227020800, 105, 87178291200, 120, 1307674368000, 136, 20922789888000, 153, 355687428096000, 171
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
COMMENTS
|
a(n) = n + a(n-1), a(n) = n*(n+1)/2, with a(0) = 0 and b(n) = n*a(n-1), a(n) = n!, with b(0) = 1, then you can form a function F such that: F(n!) = n*(n+1)/2.
|
|
LINKS
|
|
|
MATHEMATICA
|
Flatten[Table[{n*(n + 1)/2, n!}, {n, 0, 20}]] (* Produces terms *)
(*addition*)
a[0] = 0; a[n_] := a[n] = n + a[n - 1];
Table[a[n] - n*(n + 1)/2, {n, 0, 20}] (* Demonstrates that a[n] = n*(n+1)/2 *)
(*multiplication*)
b[0] = 1; b[n_] := b[n] = n*b[n - 1];
Table[b[n] - n!, {n, 0, 20}] (* Demonstrates that b[n] = n! *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|