A094163 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

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