A087830 Consecutive repeats in A087831, the triple recursion skip two Hofstadter Q of the second sort.

1, 2, 3, 4, 5, 7, 10, 14, 15, 19, 20, 26, 27, 30, 31, 33, 34, 37, 41, 44, 47, 55, 62, 64, 66, 70, 74, 75, 84, 86, 87, 90, 93, 94, 96, 101, 111, 112, 116, 119, 122, 123, 129, 130, 140, 142, 145, 148, 157, 158, 163, 166, 172, 174, 178, 179, 181, 193, 199, 203, 224, 225

Offset

0,2

Links

Table of n, a(n) for n=0..61.

Mathematica

Hofstadter14[n_Integer?Positive] := Hofstadter14[n] = Hofstadter14[Abs[n - Hofstadter14[n-1]]] + Hofstadter14[ Hofstadter14[Abs[n - Hofstadter14[n-4]]]] Hofstadter14[0] = Hofstadter14[1] = Hofstadter14[2]= Hofstadter14[3]= Hofstadter14[4]= 1 digits=3000 ta=Table[Hofstadter14[n], {n, 1, digits}]; b=Table[If[ta[[n]]-ta[[n-1]]==0, ta[[n]], 0], {n, 2, digits}]; c=Delete[Union[b], 1]

Crossrefs

Cf. A005206.

Sequence in context: A017835 A007601 A195944 * A039857 A255216 A017836

Adjacent sequences: A087827 A087828 A087829 * A087831 A087832 A087833

Keyword

nonn

Author

Roger L. Bagula, Oct 06 2003

Status

approved