%I #2 Mar 31 2012 13:20:28
%S 3,13,23,41,43,53,73,149,151,157,167,191,229,269,293,373,521,557,569,
%T 607,691,701,829,853,863,887,947,991,1019,1033,1039,1051,1087,1091,
%U 1303,1321,1367,1429,1483,1493,1543,1667,1697,1709,1723,1733,1777,1811,1831
%N Primes p such that sum of first p primes divides product of first p primes.
%C All a(n) belong to A051838[n] = {1,3,8,13,23,38,39,41,43,48,50,53,56,57,...} Sum of first n primes divides product of first n primes.
%t Select[Prime[Range[300]],IntegerQ[Product[Prime[k],{k,1,#1}]/Sum[Prime[k],{k,1,#1}]]&]
%Y Cf. A121755, A051838, A007504, A002110.
%K nonn
%O 1,1
%A _Alexander Adamchuk_, Aug 19 2006
|