OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
state:= [true, true, true, true]:
R:= NULL: count:= 0:
for n from 1 while count < 100 do
state:= [state[2], state[3], state[4], numtheory:-issqrfree(n)];
if state = [false, true, true, false] then
R:= R, n-2; count:= count+1
fi
od:
R; # Robert Israel, Mar 02 2022
MATHEMATICA
Transpose[SequencePosition[Table[If[SquareFreeQ[n], 1, 0], {n, 800}], {0, 1, 1, 0}]][[1]]+1 (* The program uses the SequencePosition function from Mathematica version 10 *) (* Harvey P. Dale, Mar 09 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 22 2002
STATUS
approved