|
%I #2 Mar 30 2012 17:31:00
%S 14,26,28,30,35,36,39,41,42,43,46,47,48,54,56,58,59,65,66,67,73,74,75,
%T 76,77,81,82,83,85,86,88,89,90,91,93,97,98,99,100,101,102,105,106,107,
%U 108,109,116,121,122,123,124,125,127,130,131,133,134,135,140,141,142
%N Numbers that do not appear in A093321.
%t 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 Cf. A093321.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, May 04 2004
|
