A268314 First term of a run of at least 11 consecutive integers which are not squarefree.
221167422, 1407472722, 3639720042, 3865964268, 4982931368, 5005996146, 7108776620, 8044261244, 10249558974, 12766690268, 13585489166, 19792784322, 26995377572, 30410811296, 30477326444, 32070270968, 34317891368, 39956560824, 40841363528, 42216508746, 43133805944, 46295514872, 47255689915
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
s11[x_] := Apply[Plus, Table[Abs[MoebiusMu[x+j]], {j, 0, 10}]]; Do[If[Equal[s11[n], 0], Print[n]], {n, 10^8, 10^13}]
Formula
Extensions
a(12)-a(23) from Bill Hannaford, Oct 06 2016
Comments