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 A342610 #5 Mar 17 2021 07:57:57 %S A342610 0,1,5,6,25,11,30,31,125,36,55,41,150,61,155,156,625,161,180,91,275, %T A342610 96,205,191,750,211,305,216,775,311,780,781,3125,786,805,341,900,271, %U A342610 455,366,1375,371,480,301,1025,396,955,941,3750,961,1055,516,1525,521,1080,991 %N A342610 a(0) = 0, a(1) = 1; a(2*n) = 5*a(n), a(2*n+1) = a(n) + a(n+1). %F A342610 G.f.: x * Product_{k>=0} (1 + 5*x^(2^k) + x^(2^(k+1))). %t A342610 a[0] = 0; a[1] = 1; a[n_] := If[EvenQ[n], 5 a[n/2], a[(n - 1)/2] + a[(n + 1)/2]]; Table[a[n], {n, 0, 55}] %t A342610 nmax = 55; CoefficientList[Series[x Product[(1 + 5 x^(2^k) + x^(2^(k + 1))), {k, 0, Floor[Log[2, nmax]] + 1}], {x, 0, nmax}], x] %Y A342610 Cf. A002487, A178569, A178590, A237711, A244643, A342611, A342614, A342615. %K A342610 nonn %O A342610 0,3 %A A342610 _Ilya Gutkovskiy_, Mar 16 2021