login
First term of a run of at least 10 consecutive integers which are not squarefree.
6

%I #13 Feb 03 2016 05:22:44

%S 221167422,221167423,262315467,363504972,463239475,1202800371,

%T 1407472722,1407472723,1557947844,1609077723,1911823144,2217728772,

%U 2695179044,2737800168,2847305571,3639720042,3639720043,3672883247,3865964268,3865964269,3982659575,4246929267,4818537743,4982931368

%N First term of a run of at least 10 consecutive integers which are not squarefree.

%H M. F. Hasler, <a href="/A268313/b268313.txt">Table of n, a(n) for n = 1..61</a>

%F A268313 = { A078143[k] | A078143[k+1] = A078143[k]+1 } = { A077647[k] | A077647[k+2] = A077647[k]+2 } = { A077640[k] | A077640[k+3] = A077640[k]+3 }.

%t s10[x_] := Apply[Plus, Table[Abs[MoebiusMu[x+j]], {j, 0, 9}]]; Do[If[Equal[s10[n], 0], Print[n]], {n, 10^8, 10^10}]

%Y Cf. A013929, A045882 (first of the k-chains), A051681.

%Y Cf. A068781 (2-chains), A070258 (3-chains), A070284 (4-chains), A078144 (5-chains), A049535 (6-chains), A077640 (7-chains), A077647 (8-chains), A078143 (9-chains), A268314 (11-chains).

%K nonn

%O 1,1

%A _M. F. Hasler_, Feb 01 2016