A276886 Sums-complement of the Beatty sequence for 2 + phi.
1, 2, 5, 6, 9, 12, 13, 16, 17, 20, 23, 24, 27, 30, 31, 34, 35, 38, 41, 42, 45, 46, 49, 52, 53, 56, 59, 60, 63, 64, 67, 70, 71, 74, 77, 78, 81, 82, 85, 88, 89, 92, 93, 96, 99, 100, 103, 106, 107, 110, 111, 114, 117, 118, 121, 122, 125, 128, 129, 132, 135, 136
Offset: 1
Examples
The Beatty sequence for 2 + phi is 0 followed by A003231, which is (0,3,7,10,14,18,21,...), with difference sequence s = A276867 = (3,4,3,4,4,3,4,3,4,4,3,4,4,3,4,3,4,4,3,...). The sums s(j)+s(j+1)+...+s(k) include (3,4,7,8,10,12,14,15,...), with complement (1,2,5,6,9,12,13,16,...).
Links
- J.-P. Allouche, F. M. Dekking, Generalized Beatty sequences and complementary triples, arXiv:1809.03424 [math.NT], 2018.
- Michel Dekking, The Frobenius problem for homomorphic embeddings of languages into the integers, Theoretical Computer Science 732, 7 July 2018, 73-79.
- Index entries for sequences related to Beatty sequences
Programs
-
Mathematica
z = 500; r = 2 + GoldenRatio; b = Table[Floor[k*r], {k, 0, z}]; (* A003231 *) t = Differences[b]; (* A276867 *) c[k_, n_] := Sum[t[[i]], {i, n, n + k - 1}]; u[k_] := Union[Table[c[k, n], {n, 1, z - k + 1}]]; w = Flatten[Table[u[k], {k, 1, z}]]; Complement[Range[Max[w]], w]; (* A276886 *)
Formula
a(n) = 2*floor((n-1)*phi) - n + 2, where phi is the golden mean.
Comments