OFFSET
1,7
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10001
MAPLE
A140213 := proc(n)
a := 1;
for d in numtheory[divisors](n) do
if modp(d, 6) = 1 then
a := a*d ;
end if;
end do:
a;
end proc: # R. J. Mathar, Dec 15 2015
PROG
(PARI) A140213(n) = { my(m=1); fordiv(n, d, if(1==(d%6), m *= d)); (m); }; \\ Antti Karttunen, Jul 09 2017
CROSSREFS
KEYWORD
AUTHOR
R. J. Mathar, Jun 27 2008
EXTENSIONS
More terms from D. S. McNeil, Mar 24 2009
STATUS
approved