This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A297216 a(0)=1; a(1)=1; for n >= 2, a(n) = a(n-A000120(n)) + a(n-1-A023416(n)) 0
 1, 1, 2, 3, 4, 6, 8, 12, 16, 20, 28, 36, 48, 64, 84, 120, 156, 184, 240, 312, 396, 480, 624, 792, 1020, 1248, 1584, 2040, 2496, 3288, 4080, 5664, 7248, 8160, 10536, 12912, 16200, 18696, 23448, 29112, 36360, 42144, 52560, 65472, 78504, 94704, 118032, 147264, 183504, 212736 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS for n >= 6, a(n) = k(n) * (a(0) + 3*a(1)). LINKS B. Balamohan, A. Kuznetsov and S. Tanny, On the behavior of a variant of Hofstadter's Q-sequence, J. Integer Sequences, Vol. 10 (2007), #07.7.1. Nathaniel D. Emerson, A Family of Meta-Fibonacci Sequences Defined by Variable-Order Recursions, J. Integer Sequences, Vol. 9 (2006), #06.1.8. EXAMPLE n=7, A000120(7)=3, A023416(7)=0. a(7) = a(4)+a(6) = a(3)+a(1)+a(4)+a(4) = 3*(a(3)+a(1)) = 3*(a(1)+a(2)+a(1)) = 3*(a(0)+3*a(1)). a(7)=12; k(7)=3. PROG (PARI) a(n) = if (n<=1, 1, a(n-hammingweight(n)) + a(n-1-(#binary(n)-hammingweight(n)))); \\ Michel Marcus, Dec 27 2017 CROSSREFS Cf. A000120, A023416. Sequence in context: A079647 A261205 A036451 * A241743 A321729 A180652 Adjacent sequences:  A297213 A297214 A297215 * A297217 A297218 A297219 KEYWORD nonn,base AUTHOR Ctibor O. Zizka, Dec 27 2017 EXTENSIONS More terms from Michel Marcus, Dec 27 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 13 20:38 EDT 2019. Contains 327981 sequences. (Running on oeis4.)