OFFSET
1,1
COMMENTS
This is the first prime 2, followed by the first differences of the partition numbers of primes.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
MAPLE
with(combinat):
a:= n-> `if`(n=1, 2, (x->x[1]-x[2])(map(numbpart@ithprime, [n, n-1]))):
seq(a(n), n=1..40); # Alois P. Heinz, Jan 27 2011
MATHEMATICA
Range[40] // Prime // PartitionsP // Differences // Prepend[#, 2]& (* Jean-François Alcover, Feb 21 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 27 2011
EXTENSIONS
More terms from Alois P. Heinz, Jan 27 2011
STATUS
approved