login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A260311 Difference sequence of A260317. 2
1, 1, 1, 1, 1, 2, 2, 1, 2, 1, 2, 3, 2, 3, 2, 3, 3, 2, 3, 3, 2, 3, 5, 3, 2, 3, 5, 3, 2, 3, 5, 3, 5, 3, 2, 3, 5, 3, 5, 3, 2, 3, 5, 3, 5, 5, 3, 5, 3, 2, 3, 5, 3, 5, 5, 3, 5, 3, 2, 3, 5, 3, 5, 5, 3, 5, 3, 5, 5, 3, 5, 3, 2, 3, 5, 3, 5, 5, 3, 5, 3, 5, 5, 3, 5, 3 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,6
COMMENTS
Conjecture: a(n) is a Fibonacci number (A000045) for every n.
In fact, a(n) is in {1,2,3,5}; proved with the Walnut theorem-prover. - Jeffrey Shallit, Oct 12 2022
LINKS
The Walnut code at https://cs.uwaterloo.ca/~shallit/oeis-walnut.txt proves the conjecture.  Walnut itself can be downloaded from https://cs.uwaterloo.ca/~shallit/walnut.html.
MATHEMATICA
r = GoldenRatio; z = 1060;
u[n_] := u[n] = Floor[n*r]; v[n_] := v[n] = Floor[n*r^2];
s[m_, n_] := v[m] + v[n];
t = Table[s[m, n], {n, 2, z}, {m, 1, n - 1}]; (* A259601 *)
w = Flatten[Table[Count[Flatten[t], n], {n, 1, z}]];
p0 = Flatten[Position[w, 0]] (* A260317 *)
d = Differences[p0] (* A260311 *)
CROSSREFS
Sequence in context: A029424 A061498 A106029 * A188431 A105153 A000924
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 31 2015
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 24 20:08 EDT 2024. Contains 371963 sequences. (Running on oeis4.)