OFFSET
1,2
MATHEMATICA
NestList[{#[[ -3]]^2, #[[ -2]]^2, #[[ -1]]^2} &, {1, 2, 3}, 7] // Flatten (* Robert G. Wilson v, Sep 02 2006 *)
Flatten[Table[{1, 2, 3}^2^k, {k, 0, 8}]] (* Harvey P. Dale, May 24 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Marius Solend (mariussolend(AT)hotmail.com), Aug 29 2006
EXTENSIONS
More terms from Robert G. Wilson v, Sep 02 2006
STATUS
approved