OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
Squares dividing the numbers in the starting at 22020 are 4, 361, 121, 9, 4, 25, respectively.
MAPLE
Res:= NULL:
st:= 0:
for n from 1 to 500000 do
if numtheory:-issqrfree(n) then
if st = 6 then Res:= Res, n-6 fi;
st:= 0;
else
st:= st+1;
fi
od:
Res; # Robert Israel, Feb 08 2017
MATHEMATICA
Select[Range[400000], !SquareFreeQ[#] && !SquareFreeQ[#+1] && !SquareFreeQ[#+2] && !SquareFreeQ[#+3] && !SquareFreeQ[#+4] && !SquareFreeQ[#+5] && SquareFreeQ[#+6]&] (* Vladimir Joseph Stephan Orlovsky, Mar 30 2011 *)
Flatten[Position[Partition[SquareFreeQ/@Range[60000], 6, 1], _?(Union[#] == {False}&), {1}, Heads->False]] (* Harvey P. Dale, May 24 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition corrected by Donald S. McDonald, Nov 07 2002
Corrected by Robert Israel, Feb 08 2017
STATUS
approved