The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A176197 Sum of 4 distinct nonzero fourth powers. 4
 354, 723, 898, 963, 978, 1394, 1569, 1634, 1649, 1938, 2003, 2018, 2178, 2193, 2258, 2499, 2674, 2739, 2754, 3043, 3108, 3123, 3283, 3298, 3363, 3714, 3779, 3794, 3954, 3969, 4034, 4194, 4323, 4338, 4369, 4403, 4434, 4449, 4578, 4738, 4803, 4818, 4978 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS 1^4+2^4+3^4+4^4=354, 1^4+2^4+3^4+5^4=723, .., 2^4+3^4+4^4+5^4=978,.. LINKS Table of n, a(n) for n=1..43. Part of "Euler's Equation of degree four" MAPLE # returns number of ways of writing n as a^4+b^4+c^4+d^4, 1<=a n then break ; end if; for j from i+1 do if i^4+j^4 > n then break ; end if; for k from j+1 do if i^4+j^4+k^4> n then break; end if; res := n-i^4-j^4-k^4 ; if issqr(res) then res := sqrt(res) ; if issqr(res) then l := sqrt(res) ; if l > k then a := a+1 ; end if; end if; end if; end do: end do: end do: a ; end proc: for n from 1 do if A176197(n) > 0 then print(n) ; end if; end do: # R. J. Mathar, May 17 2023 MATHEMATICA lst={}; Do[Do[Do[Do[AppendTo[lst, a^4+b^4+c^4+d^4], {d, c+1, 11}], {c, b+1, 10}], {b, a+1, 9}], {a, 1, 8}]; Sort@lst CROSSREFS Subsequence of A003338. Sequence in context: A068684 A270782 A251127 * A157668 A374696 A250157 Adjacent sequences: A176194 A176195 A176196 * A176198 A176199 A176200 KEYWORD nonn AUTHOR Vladimir Joseph Stephan Orlovsky, Apr 11 2010 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 20 09:46 EDT 2024. Contains 374445 sequences. (Running on oeis4.)