cp's OEIS Frontend

A111104 Difference between successive terms of A051484.

%I A111104 #4 Oct 31 2013 12:17:29
%S A111104 2,1,4,6,6,6,18,18,48,30,12,30,6,42,66,42,150,18,12,48,6,72,12,30,138,
%T A111104 60,18,84,204,54,36,6,144,12,156,24,18,60,36,6,126,48,18,168,42,12,12,
%U A111104 204,78,6,6,18,54,84,30,24,18,150,72,6,6,36,42,66,126,318,186,18,24,54
%N A111104 Difference between successive terms of A051484.
%C A111104 All elements of A051484 from the fourth element, 7, onward are either 1 or 7 modulo 12. Each difference between successive terms of A051484 from the fourth term, 7, onward are equal to 0 or 6 modulo 12.
%F A111104 a(n) = A051484(n+1)-A051484(n), n>=1.
%e A111104 a(8)=A051484(8)-A051484(7)=43-25=18.
%p A111104 M:=[0,2]: isElement := proc(n) global M; local b, j, k; b:=true; for j from 1 to nops(M)-1 do for k from j+1 to nops(M) do if M[j] = n mod M[k] then b:=false; break; fi od od; return b end: for z to 1 do for n from 3 to 1000 do if isElement(n) then M:=[op(M),n] fi od od; M; map(proc(k) M[k]-M[k-1] end, [$2..nops(M)]);
%t A111104 a[1] = 0; a[2] = 2; a[n_] := a[n] = Block[{k = a[n - 1] + 1, t = a[ # ] & /@ Range[n - 1]}, While[ Intersection[t, Union[ Mod[k, Rest[ t]]]] != {}, k++ ]; k]; t = Table[ a[n], {n, 71}]; Drop[t, 1] - Drop[t, -1] (* _Robert G. Wilson v_ *)
%Y A111104 Cf. A051484.
%K A111104 nonn
%O A111104 1,1
%A A111104 _Walter Kehowski_, Oct 14 2005
%E A111104 More terms from _Robert G. Wilson v_, Oct 19 2005