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 A094163 #2 Mar 30 2012 17:31:00
%S A094163 14,26,28,30,35,36,39,41,42,43,46,47,48,54,56,58,59,65,66,67,73,74,75,
%T A094163 76,77,81,82,83,85,86,88,89,90,91,93,97,98,99,100,101,102,105,106,107,
%U A094163 108,109,116,121,122,123,124,125,127,130,131,133,134,135,140,141,142
%N A094163 Numbers that do not appear in A093321.
%t A094163 PrimeFactors[n_Integer] := Flatten[ Table[ # [[1]], {1}] & /@ FactorInteger[n]]; a[1] = 1; a[n_] := a[n] = (Plus @@ (a[ # ] & /@ Complement[ Range[ PrimePi[n]], PrimePi[ PrimeFactors[n]]])); Take[ Complement[ Range[150], Union[ Table[ a[n], {n, 150}]]], 61]
%Y A094163 Cf. A093321.
%K A094163 nonn
%O A094163 1,1
%A A094163 _Robert G. Wilson v_, May 04 2004