|
|
|
|
|
|
|
|
|
#19 by Vaclav Kotesovec at Thu Jul 09 09:40:44 EDT 2020
|
|
|
|
|
|
|
|
#18 by Michel Marcus at Thu Jul 09 08:26:17 EDT 2020
|
|
|
|
|
|
|
|
#17 by Michel Marcus at Thu Jul 09 08:26:15 EDT 2020
|
|
| PROG
|
(PARI) f(n) = if( issquare( 24*n + 1, &n), kronecker( 12, n)); \\ A010815
a(n) = sum(k=0, n, stirling(n, k, 2) * k! * f(k)); \\ Michel Marcus, Jul 09 2020
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#16 by Peter Luschny at Thu Jul 09 07:23:05 EDT 2020
|
|
|
|
|
|
|
|
#15 by Vaclav Kotesovec at Thu Jul 09 03:25:53 EDT 2020
|
|
|
|
|
|
|
|
#14 by Vaclav Kotesovec at Thu Jul 09 03:25:43 EDT 2020
|
|
|
|
|
|
|
|
#13 by Vaclav Kotesovec at Thu Jul 09 03:25:17 EDT 2020
|
|
| MATHEMATICA
|
A010815[k_] := (m = (1 + Sqrt[1 + 24*k])/6; If[IntegerQ[m], (-1)^m, 0] + If[IntegerQ[m - 1/3], (-1)^(m - 1/3), 0]); Table[Sum[StirlingS2[n, k] * k! * A010815[k], {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Jul 09 2020 *)
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
|
#12 by Seiichi Manyama at Thu Jul 09 02:51:51 EDT 2020
|
|
|
|
|
|
|
|
#11 by Seiichi Manyama at Thu Jul 09 02:51:44 EDT 2020
|
|
|
|
|
|
|
|
#10 by Seiichi Manyama at Wed Jul 08 19:22:31 EDT 2020
|
|
|
|
|
|
|
