%I #3 Oct 19 2017 03:14:13
%S 0,1,1,5,144,514229,190392490709135,
%T 93202207781383214849429075266681969,
%U 8269366108663463411004717981412027167937978847386801205243459016220834185059487057696
%N F(P(n)), where F(n) = Fibonacci numbers A000045, P(n) = Pell numbers A000129.
%t 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}]
%Y Cf. A081323.
%K easy,nonn
%O 0,4
%A Mario Catalani (mario.catalani(AT)unito.it), Mar 18 2003
%E Corrected by _Don Reble_, Nov 20 2006