A157176 a(n+1) = a(n - n mod 2) + a(n - n mod 3), a(0) = 1.

1, 2, 2, 3, 5, 8, 8, 16, 16, 24, 40, 64, 64, 128, 128, 192, 320, 512, 512, 1024, 1024, 1536, 2560, 4096, 4096, 8192, 8192, 12288, 20480, 32768, 32768, 65536, 65536, 98304, 163840, 262144, 262144, 524288, 524288, 786432, 1310720, 2097152, 2097152, 4194304, 4194304

Offset: 0

Author

Reinhard Zumkeller, Feb 24 2009

Keywords

• nonn
• easy

Links

• Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,8).

Crossrefs

Cf. A001018, A008588, A013730, A016921, A016933, A016945, A016957, A016969, A067412, A103333.

Programs

Mathematica

LinearRecurrence[{0,0,0,0,0,8},{1, 2, 2, 3, 5, 8},45] (* Stefano Spezia, May 29 2024 *)

Formula

a(n+6) = 8*a(n).

a(6*k) = 8^k; a(A008588(n))=A001018(n);

a(6*k+1) = a(6*k+2) = 2*8^k; a(A016921(n))=a(A016933(n))=A013730(n);

a(6*k+3) = 3*8^k; a(A016945(n))=A103333(n+1);

a(6*k+4) = 5*8^k; a(A016957(n))=A067412(n+1);

a(6*k+5) = 8^(k+1); a(A016969(n))=A001018(n+1).

G.f.: (1 + 2*x + 2*x^2 + 3*x^3 + 5*x^4 + 8*x^5)/((1 - 2*x^2)*(1 + 2*x^2 + 4*x^4)). - Stefano Spezia, May 29 2024

Extensions

a(43)-a(44) from Stefano Spezia, May 29 2024