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 A098869 #5 Feb 05 2014 20:18:04
%S A098869 2,34,22,238,506,945,1190,4725,5474,6615,27370,32175,46305,46410,
%T A098869 78936,158746,211120,135135,139230,773955,569400,867510,1309620,
%U A098869 675675,2277600,3374800,3759210,2619240,4729725,6721704,2753660,8622900
%N A098869 Where A098018(k)=n.
%C A098869 k is the first occurrence of n in A098018.
%t A098869 f[n_] := Plus @@ MoebiusMu[ Drop[ Divisors[n], 1] - 1]; t = Table[0, {100}]; Do[ a = f[n]; If[Positive[a] && a < 101 && t[[a]] == 0, t[[a]] = n], {n, }]; t
%Y A098869 Cf. A098018, A098874.
%K A098869 nonn
%O A098869 1,1
%A A098869 _Leroy Quet_ and _Robert G. Wilson v_, Nov 03 2004