A094163 Numbers that do not appear in A093321.

14, 26, 28, 30, 35, 36, 39, 41, 42, 43, 46, 47, 48, 54, 56, 58, 59, 65, 66, 67, 73, 74, 75, 76, 77, 81, 82, 83, 85, 86, 88, 89, 90, 91, 93, 97, 98, 99, 100, 101, 102, 105, 106, 107, 108, 109, 116, 121, 122, 123, 124, 125, 127, 130, 131, 133, 134, 135, 140, 141, 142

Offset

1,1

Links

Table of n, a(n) for n=1..61.

Mathematica

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]

Crossrefs

Cf. A093321.

Sequence in context: A199405 A256573 A030786 * A134837 A105583 A323030

Adjacent sequences: A094160 A094161 A094162 * A094164 A094165 A094166

Keyword

nonn

Author

Robert G. Wilson v, May 04 2004

Status

approved