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 A097052 #5 Mar 30 2012 18:50:44
%S A097052 1,2,5,7,19,17,25,29,0,73,65,67,99,97,113,121,0,0,301,289,0,257,265,
%T A097052 277,393,401,421,385,451,449,481,497,0,0,0,0,0,1201,1161,1153,0,0,
%U A097052 1025,1033,1059,1057,1105,1129,0,1569,1613,1601,1681,1697,1537,1541,1801,1825
%N A097052 First occurrence of n in A096036 or 0 if n does not appear.
%C A097052 Not appearing in A096036 are 9, 17, 18, 21, 33, 34, 35, 36, 37, 41, 42, 49, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 77, 81, 82, 83, 84, 85, 97, 98, 105, ...,.
%F A097052 A096036: a(n)= ceiling(n/a(ceiling(n/2))) with a(1) = 1.
%t A097052 a[1] = 1; a[n_] := a[n] = Ceiling[ n / a[ Ceiling[n/2]]]; t = Table[ a[n], {n, 2000}]; b[n_] := Block[{p = Position[t, n, 1, 1]}, If[p == {}, 0, p]]; Flatten[ Table[ b[n], {n, 60}]]
%Y A097052 Cf. A096036.
%K A097052 nonn
%O A097052 1,2
%A A097052 _Reinhard Zumkeller_ and _Robert G. Wilson v_, Jul 21 2004