OFFSET
1,1
EXAMPLE
11! / Sum_{i=1,...,11} Prime[i] = 249480, so 11 is a term of the sequence.
MATHEMATICA
s = 0; p = 1; r = {}; For[i = 1, i <= 500, i++, q = Prime[i]; s = s + q; p = p * i; If[Mod[p, s] == 0, r = Append[r, i]]]; r
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Sep 17 2002
STATUS
approved