OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
MAPLE
subs(1=NULL, [seq(igcd(numtheory:-cyclotomic(n, 2), numtheory:-cyclotomic(n, 3)), n=1..1000)]); # Robert Israel, Dec 26 2023
MATHEMATICA
Select[GCD[Cyclotomic[Range[600], 2], Cyclotomic[Range[600], 3]], #>1&] (* Stefano Spezia, Dec 26 2023 *)
PROG
(PARI) for(n=1, 1000, m=gcd(polcyclo(n, 2), polcyclo(n, 3)); if(m>1, print1(m, ", ")))
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Tomohiro Yamada, Dec 24 2023
STATUS
approved