|
%I #9 Sep 09 2019 13:58:20
%S 1,6,45,525,6930,120120,2297295,53348295,1561650090,48522699225,
%T 1805044411170,74207381348100,3194627767035705,150451755314205345,
%U 7993567173650388330,472542797919255648585,28841405252313189586050
%N Difference of consecutive primorial numbers divided by 4.
%H Harvey P. Dale, <a href="/A078865/b078865.txt">Table of n, a(n) for n = 1..349</a>
%e n=3:(210-30)/4=45=a[3]
%t q[x_] := Apply[Times, Table[Prime[j], {j, 1, x}]] Table[(q[w+1]-q[w])/4, {w, 1, 20}]
%t Differences[FoldList[Times,Prime[Range[20]]]]/4 (* _Harvey P. Dale_, Sep 09 2019 *)
%Y Cf. A002110, A016825.
%K easy,nonn
%O 1,2
%A _Labos Elemer_, Dec 16 2002
|
