OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..350
MATHEMATICA
HConway[n_]:= HConway[n]= If[n<3, 1, HConway[HConway[n-1]] + HConway[n-HConway[n -1]]];
Hofstadter[n_]:= Hofstadter[n]= If[n<3, 1, Hofstadter[n -Hofstadter[n-1]] + Hofstadter[n -Hofstadter[n-2]]];
f[n_]:= f[n]= HConway[n]^2 - Hofstadter[n]^2;
Table[f[Abs[f[n-1]]] + f[Abs[n -f[n-1]]], {n, 60}] (* corrected by G. C. Greubel, Feb 12 2020 *)
CROSSREFS
KEYWORD
sign,less
AUTHOR
Roger L. Bagula, Sep 06 2006
EXTENSIONS
Edited by N. J. A. Sloane, Oct 01 2006
Terms a(31) and beyond corrected by G. C. Greubel, Feb 12 2020
STATUS
approved