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 A081376 #4 Oct 15 2013 22:31:51
%S A081376 1,3,4,5,7,8,9,11,13,16,17,19,23,25,27,29,31,32,37,41,43,46,48,50,51,
%T A081376 52,54,55,56,57,58,62,63,65,68,69,72,74,75,76,77,80,82,85,86,87,88,91,
%U A081376 92,93,94,95,96,98,99,100,104,106,108,111,112,115,116,117,118,119,122,123
%N A081376 a(n) is the least number such that A067003[a(n)] = n.
%t A081376 g[x_] := Length[FactorInteger[x]] f[x_] := Count[Table[g[j] - g[x], {j, 1, x}], 0] Table[f[w], {w, 1, 100}]
%Y A081376 Cf. A067003, A081373-A081375, A001221.
%K A081376 nonn
%O A081376 1,2
%A A081376 _Labos Elemer_, Mar 24 2003