OFFSET
1,2
COMMENTS
Numbers k, k+2, k+4 and k+6 are four successive odd squarefree numbers.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) andmap(numtheory:-issqrfree, [n, n+2, n+4, n+6]) end proc:
select(filter, [seq(i, i=1..1000, 2)]); # Robert Israel, Jun 08 2021
MATHEMATICA
okQ[n_] := AllTrue[n + {0, 2, 4, 6}, SquareFreeQ];
Select[Range[1, 1000, 2], okQ] (* Jean-François Alcover, May 18 2023 *)
PROG
(PARI) isok(n) = issquarefree(n) && issquarefree(n+2) && issquarefree(n+4) && issquarefree(n+6); \\ Michel Marcus, Oct 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 27 2006
STATUS
approved