%I A078147
%S A078147 4,1,3,4,2,2,4,1,2,1,4,4,4,4,1,3,1,1,2,2,2,4,3,1,4,4,3,1,4,1,3,4,2,2,4,
%T A078147 2,1,1,4,4,4,4,1,3,1,3,1,1,2,4,3,1,4,4,3,1,2,2,1,3,4,2,2,4,1,2,1,3,1,4,
%U A078147 4,4,1,3,4,2,2,4,3,1,4,4,4,4,1,3,4,2,2,4,2,1,1,1,3,2,2,4,4,1,3,4,2,2,3
%N A078147 First differences of sequence of non-square-free numbers, A013929.
%F A078147 a(n)=A013929[n+1]-A013929[n]
%e A078147 a(1)=4=8-4; a(n)-1,2,3 or 4 since n=4k is always non-square-free.
%t A078147 t=Flatten[Position[Table[MoebiusMu[w], {w, 1, 1000}], 0]]; t1=Delete[RotateLeft[t]-t, 
               -1]
%Y A078147 Cf. A013929.
%Y A078147 Sequence in context: A061903 A084118 A046071 this_sequence A058303 A090724 
               A134224
%Y A078147 Adjacent sequences: A078144 A078145 A078146 this_sequence A078148 A078149 
               A078150
%K A078147 easy,nonn
%O A078147 0,1
%A A078147 Labos E. (labos(AT)ana.sote.hu), Nov 26 2002