A079609 a(n) = (b(p)-2)/p where b(k) denotes Bell numbers and p = prime(n).

0, 1, 10, 125, 61688, 2126495, 4874404106, 306986431845, 1919652428481928, 2459993170305526730730, 332043836975044402745021, 1428874762393255348701231773647, 57345183115624820200016928713263146

Offset: 1

Author

Benoit Cloitre, Jan 28 2003

Keywords

• nonn
• changed

Links

• Amiram Eldar, Table of n, a(n) for n = 1..106

Crossrefs

Cf. A000110.

Programs

Mathematica

Table[(BellB[(p = Prime[i])] - 2)/p, {i, 1, 10}] (* Amiram Eldar, Nov 23 2019 *)

Formula

a(p) = ((Sum_{k>=0} k^p/k!)/e-2)/p.