A047416 -id:A047416 - cp's OEIS frontend

A187347 Rank transform of the sequence floor(8n/5); complement of A187348.

1, 3, 5, 7, 9, 10, 13, 14, 16, 18, 20, 22, 23, 25, 28, 29, 31, 32, 35, 37, 39, 40, 42, 44, 46, 48, 50, 51, 53, 55, 57, 59, 61, 63, 65, 66, 68, 70, 72, 74, 75, 78, 79, 81, 83, 85, 87, 89, 90, 93, 94, 96, 98, 100, 102, 103, 106, 107, 109, 111, 113, 115, 116, 118, 121, 122

Offset: 1

Clark Kimberling, Mar 08 2011

nonn

See A187224.

Cf. A187224, A187348.

seqA=Table[Floor[8n/5], {n, 1, 220}] (* A047416 *)
seqB=Table[n, {n, 1, 220}]; (* A000027 *)
jointRank[{seqA_, seqB_}]:={Flatten@Position[#1, {, 1}], Flatten@Position[#1, {, 2}]}&[Sort@Flatten[{{#1, 1}&/@seqA, {#1, 2}&/@seqB}, 1]];
limseqU=FixedPoint[jointRank[{seqA, #1[[1]]}]&, jointRank[{seqA, seqB}]][[1]] (* A187347 *)
Complement[Range[Length[seqA]], limseqU] (* A187348 *)
(*by Peter J. C. Moses, Mar 07 2011*)

A064724 A Beatty sequence for 2^sqrt(2).

Original entry on oeis.org

1, 3, 4, 6, 8, 9, 11, 12, 14, 16, 17, 19, 20, 22, 24, 25, 27, 28, 30, 32, 33, 35, 36, 38, 40, 41, 43, 44, 46, 48, 49, 51, 52, 54, 56, 57, 59, 60, 62, 64, 65, 67, 68, 70, 72, 73, 75, 76, 78, 80, 81, 83, 84, 86, 88, 89, 91, 92, 94, 96, 97, 99, 100, 102, 104, 105, 107, 108, 110

Offset: 1

Robert G. Wilson v, Oct 16 2001

nonn

Harry J. Smith, Table of n, a(n) for n = 1..2000

Beatty complement is A038127.

Note that this sequence differs from A047416, 589 is in this sequence while 588 is in A047416.

[Floor(n*2^Sqrt(2)/(2^Sqrt(2) - 1)): n in [1..100]]; // G. C. Greubel, Sep 09 2018

Table[Floor[n*(2^Sqrt[2])/(2^Sqrt[2] - 1)], {n, 1, 70} ]

{ default(realprecision, 100); b=2^sqrt(2); b=b/(b - 1); for (n = 1, 2000, write("b064724.txt", n, " ", floor(n*b)) ) } \\ Harry J. Smith, Sep 23 2009

cp's OEIS Frontend

A187347 Rank transform of the sequence floor(8n/5); complement of A187348.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica