|
%I #12 Apr 13 2014 10:46:22
%S 0,1,2,2,3,4,4,5,6,7,7,8,9,9,10,11,11,12,13,14,14,15,16,16,17,18,19,
%T 19,20,21,21,22,23,23,24,25,26,26,27,28,28,29,30,31,31,32,33,33,34,35,
%U 35,36,37,38,38,39,40,40,41,42,43,43,44,45,45,46,47,47,48,49,50,50,51,52
%N A Beatty sequence: Floor[n*c], where c = A064648 is the sum of the reciprocals of primorials.
%H <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%t With[{nn=80},Floor[Times@@#]&/@Thread[{Range[nn],Accumulate[1/Rest[ FoldList[Times,1,Prime[Range[nn]]]]]}]] (* _Harvey P. Dale_, Apr 13 2014 *)
%Y Cf. A002110, A064646-A064648.
%K nonn
%O 1,3
%A _Labos Elemer_, Oct 04 2001
|
