A135378 Main diagonal of "square and add k" array.
2, 5, 38, 2707, 21418388, 3000279372337641, 255122481276683701099886061668842
Offset: 0
Programs
-
Mathematica
A[k_,0] = 2; A[k_,n_] := A[k,n] = A[k, n-1]^2 + k; a[n_] := A[n, n]; a /@ Range[0, 6] (* Giovanni Resta, Jun 20 2016 *)
Formula
a(n) = A[n,n] where A[k,n] = n-th term of recurrence A[k,0] = 2, A[k,n] = A[k,n-1]^2 + k.
Extensions
Corrected and edited by Giovanni Resta, Jun 20 2016
Comments