OFFSET
0,2
COMMENTS
Numerators are listed in A202407 which is the main entry for these sequences.
MATHEMATICA
km = 16; a[0] = 0; r[t_] = Sum[a[k] t^(2 k), {k, 0, km}]; coes = CoefficientList[Series[r'[t]^2 + r[t]^2 - t^2 , {t, 0, 2 km}], t] // Union // Rest; Table[a[k], {k, 0, km}] /. Solve[Thread[coes == 0] ] // Last // Most // Denominator (* Jean-François Alcover, Jan 18 2013 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Mikhail Gaichenkov, Dec 19 2011
EXTENSIONS
Corrected and extended by Max Alekseyev, Dec 19 2011
STATUS
approved