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 A097053 #9 Mar 30 2012 18:50:44
%S A097053 1,2,3,8,10,12,14,32,36,40,44,48,52,56,60,128,136,144,152,160,168,176,
%T A097053 184,192,200,208,216,224,232,240,248,512,528,544,560,576,592,608,624,
%U A097053 640,656,672,688,704,720,736,752,768,784,800,816,832,848,864,880,896
%N A097053 First occurrence of n in A097051.
%F A097053 For n>1, a(n) = A053644(n) * n / 2.
%t A097053 a[1] = 1; a[n_] := a[n] = Floor[ n / a[ Floor[n / 2]]]; t = Table[ a[n], {n, 1000}]; b[n_] := Block[{p = Position[t, n, 1, 1]}, If[p == {}, 0, p]]; Flatten[ Table[ b[n], {n, 60}]]
%Y A097053 Cf. A097051.
%K A097053 nonn
%O A097053 1,2
%A A097053 _Reinhard Zumkeller_ and _Robert G. Wilson v_, Jul 21 2004
%E A097053 Formula added by _Max Alekseyev_, Mar 02 2011