OFFSET
0,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..300
FORMULA
G.f.: 1/(1-2x/(1-3x/(1-5x/(1-7x/(1-11x/(1-13x/(...))))))), by definition.
MAPLE
b:= proc(x, y) option remember; `if`(x=0 and y=0, 1,
`if`(x>0, b(x-1, y)*ithprime(y-x+1), 0)+`if`(y>x, b(x, y-1), 0))
end:
a:= n-> b(n$2):
seq(a(n), n=0..20); # Alois P. Heinz, Nov 12 2023
MATHEMATICA
CoefficientList[Series[1/(1+ContinuedFractionK[-Prime[k]*x, 1, {k, 1, 50}]), {x, 0, 50}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Benedict W. J. Irwin, Feb 25 2016
EXTENSIONS
Offset corrected by Vaclav Kotesovec, Aug 26 2017
STATUS
approved