OFFSET
1,7
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
The 69th squarefree number is 110=2*5*11, primes between 2 and 11, not dividing 110, are 3 and 7, therefore a(69)=21.
MATHEMATICA
ppg[n_]:=Module[{f=Transpose[FactorInteger[n]][[1]]}, Times@@Select[Prime[ Range[PrimePi[First[f]]+1, PrimePi[Last[f]]-1]], !MemberQ[f, #]&]]; ppg/@ Select[ Range[100], SquareFreeQ] (* Harvey P. Dale, Jan 16 2013 *)
PROG
(Haskell)
a073483 n = product $ filter ((> 0) . (mod m)) $
dropWhile (<= a020639 m) $ takeWhile (<= a006530 m) a000040_list
where m = a005117 n
-- Reinhard Zumkeller, Jan 15 2012
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Reinhard Zumkeller, Aug 03 2002
EXTENSIONS
a(44) and a(49) corrected by Reinhard Zumkeller, Jan 14 2012
Definition clarified by Harvey P. Dale, Jan 16 2013
STATUS
approved