|
|
A079601
|
|
(A000670(2*p - 1) - 1)/(6*p) where p runs through the primes.
|
|
1
|
|
|
1, 30, 236242, 12544246390, 1229164015128849604270, 1367914941518920202892096130, 10989801394147610473210727542088302770490, 67520322268089344459189867921056960354422886750
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
f[0]=1; f[n_] := f[n] = Sum[Binomial[n, k] * f[n - k], {k, 1, n}]; r[p_] := (f[2 p - 1] - 1)/(6 p); r /@ Select[Range[20], PrimeQ] (* Amiram Eldar, Sep 10 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|