OFFSET
1,2
EXAMPLE
2,4,5,6,8,12,14,15,16,18,22,... is the sequence of positive integers k where GCD(k, 10) = p^j, j = positive integer, p = prime. 18 is the 10th of these integers, so a(10) = 18.
MATHEMATICA
f[n_] := Block[{c = n, k = 0}, If[n == 1, 1, While[c > 0, k++; While[Length[FactorInteger[GCD[k, n]]] != 1, k++ ]; c--; ]; k]]; Table[f[n], {n, 65}] (* Ray Chandler, Sep 06 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Sep 02 2006
EXTENSIONS
Extended by Ray Chandler, Sep 06 2006
STATUS
approved