OFFSET
1,3
LINKS
Owen Whitby, Table of n, a(n) for n = 1..500
EXAMPLE
Among the sequence's first 11 terms there are 7 terms that share no common prime-power in their prime-factorization with the prime-powers in the prime-factorization of 12. 12 = 2^2 *3^1. The 7 terms sharing no prime-power with 12 are 1, 1, 2, 7, 8, 7 and 10. The other 4 terms (3, 4, 3 and 6) each share at least one prime-power with 12 in the integers' prime-factorizations.
MATHEMATICA
alist={1}; flist={{{1, 1}}}; Do[a=Length[Select[flist, Intersection[ #, FactorInteger[n]]=={}&]]; AppendTo[alist, a]; AppendTo[flist, FactorInteger[a]], {n, 2, 500}]; Print[alist] - Owen Whitby, May 20 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 02 2006
EXTENSIONS
More terms from Owen Whitby, May 20 2008
STATUS
approved