read `SternCF.txt`:


LIMIT1:=2000:
R:=10:
K:=6:

print(`This is a table of  J[r]^(k)(t,x) defined in Richard Stanley's paper arXiv:2101.02131v2`):

print(`Let F^(k)_i be the k-bonacci numbers and let `):
print(`Prod( 1+t*x^F^(k)_{i+k-1), i=1..n)= Sum(a(n,k)*x^k,k=0..infinity)`):
print(`and let v_r(n,t) be the sum of the r-th power of the coefficients `):
print(``):
print(`Let J[r,k] be the (ordinary) generating function with respect to x (no relation to the old x) `):
print(``):

for r from 2 to R do
 for k from 2 to K do
 lu:=Jrk(r,k,t,x,LIMIT1):
 print(J[r,k](t,x), `equals `):
 print(``):
 print(lu):
 print(``):
 print(`and in Maple format `):
 print(``):
 lprint(lu):
 print(``):
od:
od:

print(`----------------------------`):
print(``):
print(`This took`, time(), `seconds. `):




quit: