A093321 -id:A093321 - cp's OEIS frontend

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

Robert G. Wilson v, May 04 2004

nonn

Cf. A093321.

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]

A093320 a(1) = 1; for m >= 2, a(m) = sum{p|m} a(pi(p)), where the sum is over the distinct prime divisors p of m and pi(p) is the order of p among the primes = the number of primes <= p.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 2, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 1, 3, 1, 2, 2, 3, 1, 1, 2, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 2, 2, 1, 2, 2, 3, 1, 2, 2, 2, 2, 3, 1, 3, 2, 2, 2, 1, 3, 3, 1, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 4, 2, 2, 1, 3, 1, 3, 2, 3, 3, 2, 2, 3, 3, 2, 2, 3, 2, 2, 1, 2, 2, 2, 3, 3, 1, 3, 3

Offset: 1

Leroy Quet, Apr 26 2004

Cf. A093321, A066328, A094162 (for where n first appears).

PrimeFactors[n_Integer] := Flatten[ Table[ # [[1]], {1}] & /@ FactorInteger[n]]; a[1] = 1; a[n_] := a[n] = (Plus @@ (a[ # ] & /@ PrimePi[ PrimeFactors[n]])); Table[ a[n], {n, 105}] (* Robert G. Wilson v, May 04 2004 *)

More terms from Robert G. Wilson v, May 04 2004

cp's OEIS Frontend

A094163 Numbers that do not appear in A093321.

Views

Author

Keywords

Crossrefs

Programs

Mathematica