|
%I #6 Oct 15 2013 22:32:00
%S 1,1,1,1,2,1,2,1,2,6,2,3,6,3,2,2,6,2,3,6,2,3,2,3,6,12,6,12,6,12,42,28,
%T 84,84,420,140,140,210,140,140,420,84,420,210,420,70,70,210,420,210,
%U 140,420,84,140,140,140,420,140,210,420,84,60,210,420,210,60,140,84,420,210
%N a(n) is the quotient of lcm of first n consecutive prime differences and A001223[n], the n-th term of consecutive p-differences.
%F a(n)=A080374[n]/A001223[n]
%t ld[x_] := Apply[LCM, Table[Prime[w+1]-Prime[w], {w, 1, x}]] Table[ld[j]/(Prime[j+1]-Prime[j]), {j, 1, 100}]
%Y Cf. A001223, A080374-A080376.
%K nonn
%O 1,5
%A _Labos Elemer_, May 15 2003
|
