OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Biquadratic Number.
MATHEMATICA
isSumQ[n_] := Do[pr = PowersRepresentations[n, k, 4]; If[k < 13, If[pr != {} , Return[False]], If[k == 13 && pr != {}, Return[True], Return[False]]], {k, 1, 13}]; Reap[For[n = 1, n <= 800, n++, If[isSumQ[n], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Oct 25 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Arlin Anderson (starship1(AT)gmail.com)
STATUS
approved