OFFSET
2,5
COMMENTS
First occurrence of k=0..8: 7, 2, 6, 30, 330, 4620, 46410, 570570, ..., . - Robert G. Wilson v, Dec 28 2005
EXAMPLE
MATHEMATICA
a[1] = 1; a[n_] := a[n] = a[n - 1] + Length@Complement[First /@ FactorInteger@n, First /@ FactorInteger@a[n - 1]]; b = Array[a, 100]; Drop[b, 1] - Drop[b, -1] (* Robert G. Wilson v, Dec 28 2005 *)
PROG
(PARI) {a=1; for(n=2, 106, print1(d=#setminus(Set(factor(n)[, 1]), Set(factor(a)[, 1])), ", "); a=a+d)} \\ Klaus Brockhaus, Dec 27 2005
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 26 2005
EXTENSIONS
More terms from Klaus Brockhaus and Robert G. Wilson v, Dec 27 2005
STATUS
approved