A292686 Sierpinski-type iteration: start with a(0)=1, at each step, replace 0 with 000 and 1 with 101.
1, 101, 101000101, 101000101000000000101000101, 101000101000000000101000101000000000000000000000000000101000101000000000101000101
Offset: 0
Keywords
Examples
a(0) = 1 -> 101 = a(1); a(1) = 101 -> concat(101,000,101) = 101000101 = a(2).
Links
- Michael Coons and James Evans, A sequential view of self--similar measures, or, What the ghosts of Mahler and Cantor can teach us about dimension, arXiv:2011.10722 [math.NT], 2020. See Figure 2 p. 2.
Crossrefs
Programs
-
Mathematica
A292686[nmax_]:=FoldList[Times,1,100^(3^Range[0,nmax-1])+1];A292686[5] (* Paolo Xausa, May 13 2023 *)
-
PARI
a(n,a=1)=for(k=1,n,a=fromdigits(binary(a)*5,8));fromdigits(binary(a),10) \\ Illustration of the first formula.
-
PARI
A292686(n)=prod(k=0,n-1,100^(3^k)+1)
Formula
a(n+1) = convert(5*a(n), from base 8, to base 2).
a(n+1) = (100^(3^n)+1)*a(n).
a(n) = Product_{k=0 .. n-1} (100^(3^k)+1).
Comments