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!)
A067103 a(n) = floor(X/Y), where X = concatenation of cubes and Y = concatenation of natural numbers. 3
1, 1, 14, 148, 14804, 1480398, 148039049, 14803895356, 1480389427723, 148038942652481, 14803894265116205, 1480389426511476635, 148038942651147507639, 14803894265114750596056, 1480389426511475059425814, 148038942651147505942389607, 14803894265114750594238756940 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,3
COMMENTS
a(n) -> 148038942651147505942387547594667814093751032610233441970375...
LINKS
EXAMPLE
a(6) = floor(182764125216/123456) = floor(1480398.888802...) = 1480398.
MAPLE
a:= n-> floor(parse(cat(i^3$i=1..n))/parse(cat($1..n))):
seq(a(n), n=1..17); # Alois P. Heinz, May 25 2022
MATHEMATICA
f[n_] := (k = 1; x = y = "0"; While[k < n + 1, x = StringJoin[x, ToString[k^3]]; y = StringJoin[y, ToString[k]]; k++ ]; Return[ Floor[ ToExpression[x] / ToExpression[y]]] ); Table[ f[n], {n, 1, 20} ]
nn=20; With[{c=Table[IntegerDigits[n^3], {n, nn}], s=Table[IntegerDigits[n], {n, nn}]}, Table[Floor[FromDigits[Flatten[Take[c, i]]]/FromDigits[Flatten[Take[s, i]]]], {i, nn}]] (* Harvey P. Dale, Feb 10 2013 *)
PROG
(PARI) c1(n) = my(s=""); for(k=1, n, s=Str(s, k)); eval(s); \\ A007908
c3(n) = my(s=""); for(k=1, n, s=Str(s, k^3)); eval(s); \\ A019522
a(n) = c3(n)\c1(n); \\ Michel Marcus, May 25 2022
CROSSREFS
See also A066700.
Sequence in context: A081201 A065899 A162965 * A081184 A032343 A222614
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 09 2002
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 28 15:58 EDT 2024. Contains 371254 sequences. (Running on oeis4.)