A120281 Logarithmic numbers A002104[p+1] divided by p=Prime[n].

4, 8, 83, 2296, 10861936, 1411410779, 60443686054995, 18373508669927544, 3194533046674386845000, 858410779506468749371519333771, 745094155915562576848262528092832

Offset: 1

Author

Alexander Adamchuk, Jul 05 2006

Keywords

• nonn

Crossrefs

Cf. A002104, A000522.

Programs

Mathematica

Table[Sum[Sum[m!/k!,{k,0,m}],{m,0,Prime[n]}]/Prime[n],{n,1,15}]

Formula

a(n) = Sum[Sum[m!/k!,{k,0,m}],{m,0,Prime[n]}]/Prime[n]. a(n) = A002104[p+1]/p, where p=Prime[n].