OFFSET
1,1
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].
MATHEMATICA
Table[Sum[Sum[m!/k!, {k, 0, m}], {m, 0, Prime[n]}]/Prime[n], {n, 1, 15}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Jul 05 2006
STATUS
approved