A094549 Smallest m > n, coprime to n and having as many prime factors as n; a(1)=1.

1, 3, 5, 9, 7, 25, 11, 27, 10, 21, 13, 125, 17, 15, 22, 81, 19, 125, 23, 27, 22, 25, 29, 625, 26, 33, 28, 45, 31, 343, 37, 243, 34, 35, 38, 625, 41, 39, 46, 81, 43, 125, 47, 45, 52, 49, 53, 3125, 51, 63, 55, 63, 59, 625, 57, 81, 58, 65, 61, 2401, 67, 65, 68, 729, 69

Offset

1,2

Comments

GCD(a(n),n)=1, A001222(a(n))=A001222(n) and A001222(m)<>A001222(n) for m: n<m<a(n);

a(n) <= A094548(m).

Prime factors counted with multiplicity. - Harvey P. Dale, Mar 27 2013

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

scp[n_]:=Module[{m=n+1, po=PrimeOmega[n]}, While[!CoprimeQ[n, m]||po!= PrimeOmega[ m], m++]; m]; Join[{1}, Array[scp, 70, 2]] (* Harvey P. Dale, Mar 27 2013 *)

Crossrefs

Sequence in context: A100463 A346969 A166722 * A029642 A221967 A079428

Adjacent sequences: A094546 A094547 A094548 * A094550 A094551 A094552

Keyword

nonn

Author

Reinhard Zumkeller, May 10 2004

Status

approved