OFFSET
1,3
MATHEMATICA
(* First run the program for A091936 to define f[n] *) Join[{0}, Table[ f[n] - 2^n, {n, 2, 56}]] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Feb 19 2004
STATUS
approved