Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #28 Oct 02 2020 18:42:54
%S 1,1,2,2,1,2,2,3,5,7,9,11,14,15,19,26,35,39,50,61,67,87,102,130,178,
%T 204,224,257,278,320,522,595,724,776,1064,1136,1364,1634,1836,2192,
%U 2601,2761,3645,3863,4294,4549,6262,8558,9453,9964,11001,12774,13438
%N Number of ways to write the n-th prime as a sum of distinct primes.
%H David A. Corneth, <a href="/A070215/b070215.txt">Table of n, a(n) for n = 1..10000</a> (first 1201 terms from Seth Troisi)
%F a(n) = A000586(prime(n)). - _R. J. Mathar_, Apr 30 2007
%e With the 10th prime 29, for instance, we have a(10)=7 distinct-prime partitions, viz. 29 = 2 + 3 + 7 + 17 = 2 + 3 + 5 + 19 = 2 + 3 + 11 + 13 = 3 + 7 + 19 = 5 + 7 + 17 = 5 + 11 + 13.
%t nn = PrimePi[300]; t = CoefficientList[Series[Product[(1 + x^Prime[k]), {k, nn}], {x, 0, Prime[nn]}], x]; t[[1 + Prime[Range[nn]]]] (* _T. D. Noe_, Nov 13 2013 *)
%o (Haskell)
%o a070215 = a000586 . a000040 -- _Reinhard Zumkeller_, Aug 05 2012
%Y Cf. A000586, A056768 (parts may repeat).
%K nonn
%O 1,3
%A _Lekraj Beedassy_, May 07 2002
%E More terms from _Naohiro Nomoto_ and _Don Reble_, May 11 2002
%E Offset in b-file corrected by _N. J. A. Sloane_, Aug 31 2009