A116554 a(2*n+1) = 7*a(n), a(2*n+2) = 8*a(n) + a(n-1).

1, 7, 8, 49, 57, 56, 71, 343, 400, 399, 505, 392, 505, 497, 624, 2401, 2815, 2800, 3543, 2793, 3592, 3535, 4439, 2744, 3641, 3535, 4432, 3479, 4481, 4368, 5489, 16807, 19832, 19705, 24921, 19600, 25215, 24801, 31144, 19551, 25887, 25144, 31529

Offset: 0

Author

Roger L. Bagula, Mar 15 2006

Keywords

• nonn
• easy

Links

• G. C. Greubel, Table of n, a(n) for n = 0..2500

Crossrefs

Cf. A116528, A116529, A116552, A116553, A116555.

Programs

Mathematica

b[0] := 0; b[1] := 1;
b[n_?EvenQ] := b[n] = 7*b[n/2];
b[n_?OddQ] := b[n] = 8*b[(n - 1)/2] + b[(n - 3)/2];
Table[b[n], {n, 1, 70}]

Formula

From G. C. Greubel, Oct 30 2016: (Start)

a(2*n+1) = 7*a(n).

a(2*n+2) = 8*a(n) + a(n-1). (End)

Extensions

Edited by N. J. A. Sloane, Feb 11 2007

New name using formula, Joerg Arndt, Dec 17 2022