login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A004845 Numbers that are the sum of at most 5 positive 5th powers. 3
0, 1, 2, 3, 4, 5, 32, 33, 34, 35, 36, 64, 65, 66, 67, 96, 97, 98, 128, 129, 160, 243, 244, 245, 246, 247, 275, 276, 277, 278, 307, 308, 309, 339, 340, 371, 486, 487, 488, 489, 518, 519, 520, 550, 551, 582, 729, 730, 731, 761, 762, 793, 972, 973, 1004, 1024 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

Vincenzo Librandi and Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 300 terms from Vincenzo Librandi)

MAPLE

b:= proc(n, i, t) option remember; n=0 or i>0 and t>0

      and (b(n, i-1, t) or i^5<=n and b(n-i^5, i, t-1))

    end:

a:= proc(n) option remember; local k;

      for k from 1+ `if`(n=1, -1, a(n-1))

      while not b(k, iroot(k, 5), 5) do od; k

    end:

seq(a(n), n=1..50);  # Alois P. Heinz, Sep 16 2016

MATHEMATICA

Select[Table[n, {n, 0, 1200}], Length[PowersRepresentations[#, 5, 5]] > 0 &] (* Vladimir Joseph Stephan Orlovsky, Jul 19 2011 *)

CROSSREFS

Sequence in context: A250260 A086130 A024636 * A124128 A286902 A037401

Adjacent sequences:  A004842 A004843 A004844 * A004846 A004847 A004848

KEYWORD

nonn

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 June 25 17:47 EDT 2019. Contains 324353 sequences. (Running on oeis4.)