OFFSET
1,1
LINKS
Sebastian F. Orellana, Table of n, a(n) for n = 1..15
MAPLE
A[1]:= 2: A[2]:= 3:
for n from 3 to 15 do A[n]:= max(numtheory:-factorset(A[n-2]^2 + A[n-1]^2)) od:
seq(A[], n=1..15); # Robert Israel, Mar 17 2023
MATHEMATICA
a[1] = 2; a[2] = 3; a[n_] := a[n] = FactorInteger[a[n - 1]^2 + a[n - 2]^2][[-1, 1]]; Array[a, 14] (* Amiram Eldar, Mar 14 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Sebastian F. Orellana, Mar 14 2023
STATUS
approved