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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A018797 Smallest cube that begins with n. 5
0, 1, 27, 343, 4096, 512, 64, 729, 8, 9261, 1000, 110592, 125, 1331, 140608, 15625, 166375, 1728, 185193, 19683, 205379, 216, 226981, 238328, 24389, 250047, 262144, 27, 287496, 29791, 300763, 314432, 32768, 3375, 343, 35937, 3652264, 373248 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000 (terms 1..1000 from T. D. Noe)
FORMULA
a(n) = A018852(n)^3. - Seiichi Manyama, Jan 30 2017
MATHEMATICA
a[n_] := For[idn = IntegerDigits[n]; k = 1, True, k++, idk = IntegerDigits[k^3]; If[Length[idn] <= Length[idk], If[idk[[1 ;; Length[idn]]] == idn, Return[k^3]]]]; Table[an = a[n]; Print["a(", n, ") = ", an]; an, {n, 1, 1000}] (* Jean-François Alcover, Mar 13 2016 *)
id[n_]:=With[{idn=IntegerDigits[n]}, idn==Take[IntegerDigits[#], Length[ idn]]&]; With[{c=Range[0, 250]^3}, Table[SelectFirst[c, id[k]], {k, 0, 40}]]//Quiet (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 08 2018 *)
PROG
(Python)
for n in range(1, 10**3):
..for k in range(10**3):
....if str(k**3).startswith(str(n)):
......print(k**3, end=', ')
......break
..n += 1 # Derek Orr, Aug 03 2014
CROSSREFS
Sequence in context: A032599 A016839 A128831 * A239220 A133050 A125439
KEYWORD
nonn,base,nice
AUTHOR
EXTENSIONS
Added initial 0. - Seiichi Manyama, Jan 30 2017
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 06:56 EDT 2024. Contains 370953 sequences. (Running on oeis4.)