STATUS
proposed
approved
proposed
approved
editing
proposed
Define {b(n)} by ba(1)=3, b(; for n) >1, a(n >= 2) is smallest number positive integer such that ba(1)^2+...+ba(n)^2 = m^2 for some m and all b(i) are distinct. Sequence gives values of b(n).
proposed
editing
editing
proposed
f[n_]:=Module[{a={3}}, Do[AppendTo[a, First[y/. {ToRules[Reduce[{y^2+a.a == x^2, x>0, y>0}, {y, x}, Integers]]}]], {n-1}]; a]; f[21]//Timing (* _Jean-François Alcover, _, Jan 26 2007 *)
Charles Reed, (charles.reed(AT)bbs.ewgateway.org)
approved
editing
Vincenzo Librandi, <a href="/A018930/b018930_2.txt">Table of n, a(n) for n = 1..100</a>
proposed
approved
editing
proposed
Vincenzo Librandi, <a href="/A018930/b018930_1.txt">Table of n, a(n) for n = 1..70</a>