OFFSET

1,5

COMMENTS

This is the sequence Q(2,4) in the Hofstadter-Huber classification.

It is not known if this sequence is defined for all positive n. Balamohan et al. comment that it shows "inscrutably wild behavior".

LINKS

N. J. A. Sloane, Table of n, a(n) for n = 1..10000

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.

Nathan Fox, A Slow Relative of Hofstadter's Q-Sequence, arXiv:1611.08244 [math.NT], 2016.

D. R. Hofstadter, Curious patterns and non-patterns in a family of meta-Fibonacci recursions, Lecture in Doron Zeilberger's Experimental Mathematics Seminar, Rutgers University, April 10 2014; Part 1, Part 2.

D. R. Hofstadter, Plot of first 100000 terms

MAPLE

a := proc(n) option remember; if n<=4 then 1 else if n > a(n-2) and n > a(n-4) then RETURN(a(n-a(n-2))+a(n-a(n-4))); else ERROR(" died at n= ", n); fi; fi; end;

MATHEMATICA

a[n_] := a[n] = If[n <= 4, 1, a[n - a[n - 2]] + a[n - a[n - 4]]];

Array[a, 80] (* Jean-François Alcover, Nov 24 2017 *)

PROG

(Magma) [n le 4 select 1 else Self(n-Self(n-2))+Self(n-Self(n-4)): n in [1..80]]; // Vincenzo Librandi, Sep 10 2016

CROSSREFS

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Oct 05 2003

EXTENSIONS

Edited by N. J. A. Sloane, Nov 06 2007

STATUS

approved