This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A067102 #3 Dec 05 2013 19:55:07 %S A067102 1,1,1,12,120,1208,12082,120821,1208216,12082165,120821655,1208216555, %T A067102 12082165556,120821655562,1208216555626,12082165556267, %U A067102 120821655562672,1208216555626728,12082165556267282,120821655562672822 %N A067102 Floor[ X/Y] where X = concatenation of the squares and Y = concatenation of natural numbers. %e A067102 a(5) = floor [1491625/12345]=floor[] = floor[120.828270554880518428513568246254]=120. %t A067102 f[n_] := (k = 1; x = y = "0"; While[k < n + 1, x = StringJoin[x, ToString[k^2]]; y = StringJoin[y, ToString[k]]; k++ ]; Return[ Floor[ ToExpression[x] / ToExpression[y]]] ); Table[ f[n], {n, 1, 20} ] %Y A067102 Cf. A067091, A067092, A067093, A067094, A067095, A067096, A067097, A067098, A067099, A067100, A067101. %Y A067102 floor[A019521(n)/A007908(n)] %K A067102 easy,base,nonn %O A067102 1,4 %A A067102 _Amarnath Murthy_, Jan 07 2002 %E A067102 More terms from _Robert G. Wilson v_, Jan 09 2002