OFFSET
0,4
MATHEMATICA
f[n_] := f[n] = f[n - 1] + f[n - 2]; f[0] = 0; f[1] = 1; p[n_] := p[n] = 2p[n - 1] + p[n - 2]; p[0] = 0; p[1] = 1; Table[f[p[n]], {n, 0, 8}]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Mario Catalani (mario.catalani(AT)unito.it), Mar 18 2003
EXTENSIONS
Corrected by Don Reble, Nov 20 2006
STATUS
approved