A064488 A Beatty sequence: Floor[n*c], where c = A064648 is the sum of the reciprocals of primorials.

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, 19, 20, 21, 21, 22, 23, 23, 24, 25, 26, 26, 27, 28, 28, 29, 30, 31, 31, 32, 33, 33, 34, 35, 35, 36, 37, 38, 38, 39, 40, 40, 41, 42, 43, 43, 44, 45, 45, 46, 47, 47, 48, 49, 50, 50, 51, 52

Offset: 1

Author

Labos Elemer, Oct 04 2001

Keywords

• nonn

Links

• Index entries for sequences related to Beatty sequences

Crossrefs

Cf. A002110, A064646-A064648.

Programs

Mathematica

With[{nn=80},Floor[Times@@#]&/@Thread[{Range[nn],Accumulate[1/Rest[ FoldList[Times,1,Prime[Range[nn]]]]]}]] (* Harvey P. Dale, Apr 13 2014 *)