|
%I #38 May 16 2018 04:17:28
%S 22020,24647,30923,47672,55447,57120,73447,74848,96675,105772,121667,
%T 121847,152339,171348,179972,182347,185247,190447,200848,204323,
%U 215303,229172,233223,234375,240424,268223,274547,310120,327424,338920
%N Starts for strings of exactly 6 consecutive nonsquarefree numbers.
%H Robert Israel, <a href="/A049535/b049535.txt">Table of n, a(n) for n = 1..1000</a>
%F { A078144(k) | A078144(k+1) = A078144(k)+1 and A078144(k+2) > A078144(k)+2 }. - _M. F. Hasler_, Feb 01 2016
%e Squares dividing string started by 22020 are as follows: 4, 361, 121, 9, 4, 25, respectively.
%p Res:= NULL:
%p st:= 0:
%p for n from 1 to 500000 do
%p if numtheory:-issqrfree(n) then
%p if st = 6 then Res:= Res, n-6 fi;
%p st:= 0;
%p else
%p st:= st+1;
%p fi
%p od:
%p Res; # _Robert Israel_, Feb 08 2017
%t Select[Range[400000], !SquareFreeQ[#] && !SquareFreeQ[#+1] && !SquareFreeQ[#+2] && !SquareFreeQ[#+3] && !SquareFreeQ[#+4] && !SquareFreeQ[#+5] && SquareFreeQ[#+6]&] (* _Vladimir Joseph Stephan Orlovsky_, Mar 30 2011 *)
%t Flatten[Position[Partition[SquareFreeQ/@Range[60000],6,1],_?(Union[#] == {False}&),{1},Heads->False]] (* _Harvey P. Dale_, May 24 2014 *)
%Y The smallest members of such strings of length k are listed in A045882.
%Y Cf. A001694 powerful numbers, A013929 not squarefree.
%Y Cf. A045882 (min terms), A068781 (2-chains), A070258 (3-chains), A070284 (4-chains), A078144 (5-chains), A049535 (6-chains), A077640 (7-chains), A077647 (8-chains), A078143 (9-chains), A268313 (10-chains), A268314 (11-chains).
%K nonn
%O 1,1
%A _Labos Elemer_
%E Definition corrected by _Donald S. McDonald_, Nov 07 2002
%E Corrected by _Robert Israel_, Feb 08 2017
|
