OFFSET
0,5
COMMENTS
An experimental sequence in which fractal sequence A025480 is used to select the response to a novel term, whereas a repeat term is followed by the number of repeats of that term. Every number appears infinitely many times, suggesting the possibility of there being multiple proper subsequences identical to the original, although no specific example (expressible by formula) has been found. The scatterplot shows fractal like features and the records subsequence is A001477. Shelly's formula (using A001511) for A025480 has been used in the computation of terms. a(n) <= n (equality when n = 0).
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..10000
Michael De Vlieger, Scatterplot of a(n), n = 1..2^16.
Michael De Vlieger, Log log scatterplot of a(n), n = 1..2^20.
EXAMPLE
a(0) = 0 is a novel term, therefore a(1) = a(A025480(0)) = a(0) = 0.
Since 0 has now been repeated once, a(2) = 1, another novel term, so a(3) = a(A025480(a(2))) = a(A025480(1)) = a(0) = 0.
Now 0 has been repeated 2 times, so a(4) = 2.
The data can be shown as an irregular table in which each row begins with a record term:
0,0;
1,0;
2,0;
3,0;
4,1,1,2,1,3,1,4,1;
5,0,5,1;
6,0,6,1;
7,0,7,1;
8,2,2,3,2,4,2,5,2,6,2,7,2,8,1;
MATHEMATICA
nn = 120; f[x_] := Floor[x/2^IntegerExponent[2 (x + 1), 2]]; a[0] = 0; c[_] := 0; Do[a[n] = If[c[#] == 0, c[#]++; a[f[#]], c[#]++; c[#] - 1] &[a[n - 1]], {n, nn}]; Array[a, nn, 0]
CROSSREFS
KEYWORD
nonn
AUTHOR
David James Sycamore and Michael De Vlieger Oct 14 2023
STATUS
approved