OFFSET
1,2
COMMENTS
If n>1 is a term then n is composite and is not squarefree. - Farideh Firoozbakht, Dec 08 2006
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
18225 = 3^6 * 5^2. Neither 6 nor 2 divides 18225, so 18225 is in the sequence.
MATHEMATICA
f[n_] := Times @@ Mod[n, Last /@ FactorInteger[n]] > 0; Select[Range[5000], f] (* Ray Chandler, Dec 06 2006 *)
Do[a = FactorInteger[n]; l = Length[a]; b = Table[a[[k]][[2]], {k, l}]; If[ ! MemberQ[Mod[n, b], 0], Print[n]], {n, 4000}] (* Farideh Firoozbakht, Dec 08 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 05 2006
EXTENSIONS
Extended by Ray Chandler and Zak Seidov, Dec 06 2006
STATUS
approved