OFFSET
1,2
MATHEMATICA
nxt[{n_, a_}]:={n+1, a*Ceiling[(n+1)^(n+1)/a]}; NestList[nxt, {1, 1}, 20][[All, 2]] (* Harvey P. Dale, May 06 2021 *)
PROG
(PARI) al(n)=local(r, t); vector(n, k, if(k==1, r=t=1, r*=(t=ceil(k^k/r))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, May 30 2010
STATUS
approved