$ perl6 -e 'my $f=3; for (1..16) { $f = ($f-1)**2 if $_>1; say $f }'
3
4
9
64
3969
15745024
247905749270529
61457260521381894004129398784
...