login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A309911 a(n) = Sum_{k=1..n} Stirling2(n,k) * floor(n/k). 1
1, 3, 7, 25, 71, 360, 1310, 7195, 35740, 213318, 1132154, 8409475, 50344672, 366939569, 2728237607, 21375289293, 159969524749, 1462761108082, 11896122581676, 107011124829787, 1031744001100166, 9684995830526129, 91735916202054984, 1010641832989185386, 10131466944871497886 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..25.

FORMULA

a(n) = [x^n] (1/(1 - x)) * Sum_{k=1..n} Stirling2(n,k) * x^k/(1 - x^k).

a(n) = Sum_{k=1..n} Sum_{d|k} Stirling2(n,d).

MATHEMATICA

Table[Sum[StirlingS2[n, k] Floor[n/k] , {k, 1, n}], {n, 1, 25}]

Table[SeriesCoefficient[1/(1 - x) Sum[StirlingS2[n, k] x^k/(1 - x^k), {k, 1, n}], {x, 0, n}], {n, 1, 25}]

Table[Sum[Sum[StirlingS2[n, d], {d, Divisors[k]}], {k, 1, n}], {n, 1, 25}]

PROG

(PARI) a(n) = sum(k=1, n, stirling(n, k, 2) * (n\k)); \\ Michel Marcus, Aug 23 2019

CROSSREFS

Cf. A008277, A308037, A308812, A309910.

Sequence in context: A148723 A148724 A332508 * A148725 A148726 A148727

Adjacent sequences:  A309908 A309909 A309910 * A309912 A309913 A309914

KEYWORD

nonn

AUTHOR

Ilya Gutkovskiy, Aug 22 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 3 19:54 EDT 2021. Contains 346441 sequences. (Running on oeis4.)