OFFSET
1,1
COMMENTS
p such that A027644(p) = 8p.
MATHEMATICA
f[n_] := Denominator[(-1)^n*Sum[(-1)^m*m!*StirlingS2[n, m]/(m + 1)^2, {m, 0, n}]]; l = {}; Do[p = Prime[n]; If[f[p] == 8p, AppendTo[l, p]], {n, 240}]; l (* Robert G. Wilson v, Oct 28 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Oct 27 2004
EXTENSIONS
More terms from Robert G. Wilson v, Oct 28 2004
STATUS
approved