OFFSET
1,3
MATHEMATICA
Nest[Flatten[ #1 /. a_Integer -> {a, a + 1, 2a + 2}] &, {0}, 5]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 27 2006
STATUS
approved