This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A147879 #30 Dec 10 2020 18:33:22
%S A147879 1,1,1,3,5,8,12,21,29,49,73,105,162,236,338,502,706,984,1441,1998,
%T A147879 2800,3934,5472,7407,10210,14053,19066,25986,35134,47010,63739,85008,
%U A147879 112610,150861,200133,264838,349587,459970,602763,792220,1034136,1345530
%N A147879 Expansion of Product_{k>=1} (1 + x^k*A005185(k)).
%t A147879 f[n_Integer?Positive] := f[n] = f[n - f[n - 1]] + f[n - f[n - 2]]; f[0] = 0; f[1] = f[2] = 1; (* A005185 *)
%t A147879 nmax = 41; CoefficientList[Series[Product[(1 + f[k] * x^k), {k, 1, nmax}], {x, 0, nmax}], x] (* _Georg Fischer_, Dec 10 2020 *)
%o A147879 (PARI) \\ here B(n) is A005185 as vector.
%o A147879 B(n)={my(A=vector(n, k, 1)); for(k=3, n, A[k]= A[k-A[k-1]]+ A[k-A[k-2]]); A}
%o A147879 seq(n)=my(v=B(n)); {Vec(prod(k=1, #v, 1 + x^k*v[k] + O(x*x^n)))} \\ _Andrew Howroyd_, Dec 10 2020
%Y A147879 Cf. A004001, A005185, A147559, A147654, A147655, A147665, A147869, A147871.
%K A147879 nonn
%O A147879 0,4
%A A147879 _Roger L. Bagula_, Nov 16 2008
%E A147879 Definition corrected by _Georg Fischer_, Dec 10 2020