%I A053845
%S A053845 3,11,29,59,101,239,569,1061,1481,1721,4889,5351,6871,22549,23593,
%T A053845 25801,29297,35569,38239,41023,71209,77137,87517,94057,105541,120349,
%U A053845 122921,125509,128113,133387,138869,141677,156109,159073,165041,183707
%N A053845 Primes of form p(1)+...+p(k) + 1 where p(i) =i-th prime.
%t A053845 p=1;lst={};Do[p+=Prime[n];If[PrimeQ[p],AppendTo[lst,p]],{n,7!}];lst [From 
               Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 14 2009]
%o A053845 (UBASIC:) 10 x=x+1; 20 if x<>prmdiv(x) then 10; 30 y=x; 40 r=r+y; 50 
               if r=prmdiv(r) then print r;:p=p+1; 60 if p<100 then 10
%Y A053845 A013918.
%Y A053845 Sequence in context: A111693 A100032 A069350 this_sequence A072610 A110954 
               A000251
%Y A053845 Adjacent sequences: A053842 A053843 A053844 this_sequence A053846 A053847 
               A053848
%K A053845 easy,nonn
%O A053845 1,1
%A A053845 Enoch Haga (Enokh(AT)comcast.net), Mar 28 2000