The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #19 Feb 21 2017 02:38:06
%S 2,1,4,8,41,45,196,193,765,3310,2277,14795,22946,18678,61493,205177,
%T 501889,289685,1558184,2017516,1488484,7662961,9489819,26657456,
%U 83235005,81250196,56767824,159900439,110796851,309430388,3062487667,2050675209,5133105512
%N First differences of the partition numbers of the primes.
%C This is the first prime 2, followed by the first differences of the partition numbers of primes.
%H Alois P. Heinz, <a href="/A182739/b182739.txt">Table of n, a(n) for n = 1..1000</a>
%F a(1) = 2; a(n) = A000041(A000040(n)) - A000041(A000040(n-1)) for n>1.
%e a(5) = A000041(A000040(5)) - A000041(A000040(4)) = A000041(11) - A000041(7) = 56 - 15 = 41.
%p with(combinat):
%p a:= n-> `if`(n=1, 2, (x->x[1]-x[2])(map(numbpart@ithprime, [n, n-1]))):
%p seq(a(n), n=1..40); # _Alois P. Heinz_, Jan 27 2011
%t Range[40] // Prime // PartitionsP // Differences // Prepend[#, 2]& (* _Jean-François Alcover_, Feb 21 2017 *)
%Y Cf. A000040, A000041, A058698.
%K nonn
%O 1,1
%A _Omar E. Pol_, Jan 27 2011
%E More terms from _Alois P. Heinz_, Jan 27 2011