1,1

PrevPrim[n_] := Block[{k = n - 1}, While[ ! PrimeQ[k], k-- ]; k]; NextPrim[n_] := Block[{k = n + 1}, While[ ! PrimeQ[k], k++ ]; k]; NFactorialM[n_, m_] := Block[{k = n, p = n}, While[k > m, k -= m; p = p*k]; p]; Do[ a = NFactorialM[n, 3]; If[2a == PrevPrim[a] + NextPrim[a], Print[n]], {n, 3, 500}]

Cf. A053709 & A074176.

Sequence in context: A028444 A003973 A034747 this_sequence A137821 A010061 A063186

Adjacent sequences: A074162 A074163 A074164 this_sequence A074166 A074167 A074168

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 16 2002