OFFSET
1,1
COMMENTS
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.
MATHEMATICA
Select[Prime[Range[300]], IntegerQ[Product[Prime[k], {k, 1, #1}]/Sum[Prime[k], {k, 1, #1}]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 19 2006
STATUS
approved