|
|
A219906
|
|
Number of different straight line programs of length n.
|
|
0
|
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
See Borwein and Hobart (or A216999) for definition.
|
|
LINKS
|
|
|
MAPLE
|
g:= f-> seq([f[], t], t={seq(seq({i+j, i-j, i*j}[], j=f), i=f)}):
F:= proc(n) F(n):= map(g, F(n-1)) end: F(0):= {[1]}:
a:= n-> nops(F(n)):
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|