|
|
|
|
|
|
|
|
|
#27 by Alois P. Heinz at Fri Nov 27 07:06:23 EST 2020
|
|
|
|
|
|
|
|
#26 by Jean-François Alcover at Fri Nov 27 07:03:53 EST 2020
|
|
|
|
|
|
|
|
#25 by Jean-François Alcover at Fri Nov 27 07:03:48 EST 2020
|
|
|
|
|
|
|
|
#24 by Alois P. Heinz at Thu Mar 26 09:26:45 EDT 2020
|
|
|
|
|
|
|
|
#23 by Alois P. Heinz at Thu Mar 26 09:26:43 EDT 2020
|
|
| MAPLE
|
# second Maple program:
# second Maple program: a:= proc(n) option remember; `if`(n<2, n,
|
|
|
|
|
|
|
#22 by Alois P. Heinz at Thu Mar 26 09:26:28 EDT 2020
|
|
| FORMULA
|
a(n) = a(n-1) + n3*phi(n) + *phi(n^2)/2 for n > 1, a(n) = n for n <= 1.
a(n) = 1 + Sum_{k=2..n} (k} 3*phi(k) + *phi(k^2)/2). (. (End)
|
|
| MAPLE
|
# second Maple program:: a:= proc(n) option remember; `if`(n<2, n,
a:= proc(n) option remember; uses numtheory:
`if`(n<2, n, a(n-1) + n3*phi(n) + *numtheory[phi(](n^2)/2)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#21 by Alois P. Heinz at Thu Mar 26 06:36:05 EDT 2020
|
|
|
|
|
|
|
|
#20 by Michel Marcus at Thu Mar 26 05:22:58 EDT 2020
|
|
|
|
|
|
|
|
#19 by Hugo Pfoertner at Thu Mar 26 05:17:30 EDT 2020
|
|
|
|
|
|
|
|
#18 by Hugo Pfoertner at Thu Mar 26 05:16:18 EDT 2020
|
|
|
|
|
|
|
