OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = A182028(n-1)+2^n-1.
a(n) = 2*a(n-1) + A003842(n-1) for n>1, a(1) = 1. - Alois P. Heinz, Jul 19 2012
MAPLE
S:= proc(n) option remember;
`if`(n<2, [2-n], [S(n-1)[], S(n-2)[]])
end:
a:= proc(n) option remember; local k;
for k while nops(S(k))<n do od;
`if`(n=1, 1, 2*a(n-1) +S(k)[n])
end:
seq(a(n), n=1..50); # Alois P. Heinz, Jul 19 2012
MATHEMATICA
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jul 12 2012
EXTENSIONS
More terms from Alois P. Heinz, Jul 19 2012
STATUS
approved