login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A003339 Numbers that are the sum of 5 positive 4th powers. 38
5, 20, 35, 50, 65, 80, 85, 100, 115, 130, 145, 165, 180, 195, 210, 245, 260, 275, 290, 305, 320, 325, 340, 355, 370, 385, 405, 420, 435, 450, 500, 515, 530, 545, 560, 580, 595, 610, 625, 629, 644, 659, 674, 675, 689, 690, 709, 724, 739, 754, 755, 770, 785, 789, 800 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)

Eric Weisstein's World of Mathematics, Biquadratic Number.

EXAMPLE

From David A. Corneth, Aug 04 2020: (Start)

22418 is in the sequence as 22418 = 1^4 + 2^4 + 7^4 + 10^4 + 10^4.

30004 is in the sequence as 30004 = 2^4 + 3^4 + 5^4 + 11^4 + 11^4.

39028 is in the sequence as 39028 = 5^4 + 5^4 + 7^4 + 11^4 + 12^4. (End)

MATHEMATICA

Select[Range[1000], AnyTrue[PowersRepresentations[#, 5, 4], First[#]>0&]&] (* Jean-Fran├žois Alcover, Jul 18 2017 *)

PROG

(Python)

from itertools import combinations_with_replacement as combs_with_rep

def aupto(limit):

  qd = [k**4 for k in range(1, int(limit**.25)+2) if k**4 + 4 <= limit]

  ss = set(sum(c) for c in combs_with_rep(qd, 5))

  return sorted(s for s in ss if s <= limit)

print(aupto(800)) # Michael S. Branicky, May 20 2021

CROSSREFS

Supersequence of A047716.

Cf. A000583, A003328, A003338, A003340, A003350, A344190, A344238.

Sequence in context: A063133 A029528 A101867 * A047716 A344190 A326005

Adjacent sequences:  A003336 A003337 A003338 * A003340 A003341 A003342

KEYWORD

nonn,easy,changed

AUTHOR

N. J. A. Sloane

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 5 08:44 EDT 2021. Contains 346464 sequences. (Running on oeis4.)