|
%I #3 Feb 11 2014 19:05:29
%S 11,17,23,37,40,49,50,52,53,56,77,79,80,84,87,88,91,98,103,111,112,
%T 113,115,119,121,127,128,131,139,149,151,153,157,163,172,173,179,188,
%U 213,217,230,231,237,240,245,247,253,269,270,271,275,283,285,295,297,299
%N Numbers n such that the sum of the first n primes divides n!.
%e 11! / Sum_{i=1,...,11} Prime[i] = 249480, so 11 is a term of the sequence.
%t 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
%K nonn
%O 1,1
%A _Joseph L. Pe_, Sep 17 2002
|
