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,3

Links

Table of n, a(n) for n=1..74.

Index entries for sequences related to Beatty sequences

Mathematica

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

Crossrefs

Cf. A002110, A064646-A064648.

Sequence in context: A261093 A306726 A188511 * A049472 A368131 A125229

Adjacent sequences: A064485 A064486 A064487 * A064489 A064490 A064491

Keyword

nonn

Author

Labos Elemer, Oct 04 2001

Status

approved