OFFSET
1,2
MATHEMATICA
f[1]={0}; f[2]={1}; f[n_] := f[n]=Join[f[n-1], f[n-2]]; a[1]=1; a[n_] := a[n]=4a[n-1]+1+2f[9][[n]]; a/@Range[1, 30]
CROSSREFS
KEYWORD
nonn
AUTHOR
John McNamara, Jan 12 2002
EXTENSIONS
Edited by Dean Hickerson, Jan 14, 2002
STATUS
approved