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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A201053 Nearest cube. 8
0, 1, 1, 1, 1, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,6

COMMENTS

a(n) = if n-A048763(n) < A048762(n)-n then A048762(n) else A048763(n);

apart from 0, k^3 occurs 3*n^2+1 times, cf. A056107.

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

FORMULA

G.f.: (1-x)^(-1)*Sum_{k>=0} (3*k^2+3*k+1)*x^((k+1)*(k^2+k/2+1)). - Robert Israel, Jan 03 2017

MAPLE

seq(k^3 $ (3*k^2+1), k=0..10); # Robert Israel, Jan 03 2017

MATHEMATICA

Module[{nn=70, c}, c=Range[0, Ceiling[Surd[nn, 3]]]^3; Flatten[Array[ Nearest[ c, #]&, nn, 0]]] (* Harvey P. Dale, May 27 2014 *)

PROG

(Haskell)

a201053 n = a201053_list !! n

a201053_list = 0 : concatMap (\x -> replicate (a056107 x) (x ^ 3)) [1..]

CROSSREFS

Cf. A061023, A074989, A053187 (nearest square), A000578.

Sequence in context: A195139 A010731 A048762 * A160949 A245401 A048763

Adjacent sequences:  A201050 A201051 A201052 * A201054 A201055 A201056

KEYWORD

nonn,look

AUTHOR

Reinhard Zumkeller, Nov 28 2011

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 April 20 22:22 EDT 2019. Contains 322310 sequences. (Running on oeis4.)