A240830 -id:A240830 - cp's OEIS frontend

A240831 Sequence U(n) arising from analysis of structure of A240830.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 1, 1, 1, 1, 1, 7, 1, 7, 1, 1, 1, 7, 1, 7, 1, 7, 1, 7, 1, 7, 1, 7, 1, 7, 7, 7, 1, 7, 1, 7, 7, 7, 7, 7, 1, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 13, 7, 7, 7, 7, 7, 13, 7, 13, 7, 7, 7, 13, 7, 13, 7, 13, 7, 13, 7, 13, 7, 13, 7, 19, 7, 13, 7, 13, 7, 19, 7, 19, 7, 13, 7, 19

Offset: 2

N. J. A. Sloane, Apr 16 2014

nonn

Paolo Xausa, Table of n, a(n) for n = 2..10000
Joseph Callaghan, John J. Chew III, and Stephen M. Tanny, On the behavior of a family of meta-Fibonacci sequences, SIAM Journal on Discrete Mathematics 18.4 (2005): 794-824. See Eq. (2.2) and Table 2.2.
Index entries for Hofstadter-type sequences

Cf. A240830, A240832.

#T_s,k(n) from Callaghan et al. Eq. (2.2).
s:=0; k:=7;
T:=proc(n) option remember; global R,U,s,k; # A240830
if n <= s+k then 1
else
    add(U(n-i),i=0..k-1);
fi; end;
U:=proc(n) option remember; global R,T,s,k; # A240831
T(R(n)); end;
R:=proc(n) option remember; global U,T,s,k; # A240832
n-s-T(n-1); end;
t1:=[seq(U(n),n=2..100)];

A240830[n_]:=A240830[n]=If[n<=7,1,Sum[A240831[n-i],{i,0,6}]];
A240831[n_]:=A240831[n]=A240830[n-A240830[n-1]];
Array[A240831,100,2] (* Paolo Xausa, Dec 06 2023, after N. J. A. Sloane *)

A240832 Sequence R(n) arising from analysis of structure of A240830.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 8, 3, 4, 5, 6, 7, 8, 3, 10, 5, 6, 7, 8, 3, 10, 5, 12, 7, 8, 3, 10, 5, 12, 7, 14, 9, 10, 5, 12, 7, 14, 9, 10, 11, 12, 7, 14, 9, 10, 11, 12, 13, 14, 9, 10, 11, 12, 13, 14, 15, 10, 11, 12, 13, 14, 15, 10, 17, 12, 13, 14, 15, 10, 17, 12, 19, 14, 15, 10, 17, 12, 19, 14, 21, 10, 17

Offset: 1

N. J. A. Sloane, Apr 16 2014

nonn

Paolo Xausa, Table of n, a(n) for n = 1..10000
Joseph Callaghan, John J. Chew III, and Stephen M. Tanny, On the behavior of a family of meta-Fibonacci sequences, SIAM Journal on Discrete Mathematics 18.4 (2005): 794-824. See Eq. (2.2) and Table 2.3.
Index entries for Hofstadter-type sequences

Cf. A240830, A240831.

#T_s,k(n) from Callaghan et al. Eq. (2.2).
s:=0; k:=7;
T:=proc(n) option remember; global R,U,s,k; # A240830
if n <= s+k then 1
else
add(U(n-i),i=0..k-1);
fi; end;
U:=proc(n) option remember; global R,T,s,k; # A240831
T(R(n)); end;
R:=proc(n) option remember; global U,T,s,k; # A240832
n-s-T(n-1); end;
t1:=[seq(R(n),n=1..100)];

A240830[n_]:=A240830[n]=If[n<=7,1,Sum[A240830[A240832[n-i]],{i,0,6}]];
A240832[n_]:=A240832[n]=n-A240830[n-1];
Array[A240832,100] (* Paolo Xausa, Dec 06 2023, after N. J. A. Sloane *)

A046699 a(1) = a(2) = 1, a(n) = a(n - a(n-1)) + a(n-1 - a(n-2)) if n > 2.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 9, 10, 10, 11, 12, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 24, 24, 24, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 32, 32, 32, 32, 32, 33, 34, 34, 35, 36, 36, 36, 37

Offset: 1

R. K. Guy

Ignoring first term, this is the meta-Fibonacci sequence for s=0. - Frank Ruskey and Chris Deugau (deugaucj(AT)uvic.ca)

Except for the first term, n occurs A001511(n) times. - Franklin T. Adams-Watters, Oct 22 2006

Sequence was proposed by Reg Allenby.
B. W. Conolly, "Meta-Fibonacci sequences," in S. Vajda, editor, Fibonacci and Lucas Numbers and the Golden Section. Halstead Press, NY, 1989, pp. 127-138. See Eq. (2).
Michael Doob, The Canadian Mathematical Olympiad & L'Olympiade Mathématique du Canada 1969-1993, Canadian Mathematical Society & Société Mathématique du Canada, Problem 5, 1990, pp. 212-213, 1993.
S. Vajda, Fibonacci and Lucas Numbers and the Golden Section, Wiley, 1989, see p. 129.
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 129.

N. J. A. Sloane, Table of n, a(n) for n = 1..20000
Altug Alkan, On a Generalization of Hofstadter's Q-Sequence: A Family of Chaotic Generational Structures, Complexity (2018) Article ID 8517125.
Joerg Arndt, Matters Computational (The Fxtbook)
Stephen M. Buckley, Wiring switches to more light bulbs, arXiv:2410.02460 [math.CO], 2024. See pp. 3, 12, 22.
Joseph Callaghan, John J. Chew III, and Stephen M. Tanny, On the behavior of a family of meta-Fibonacci sequences, SIAM Journal on Discrete Mathematics 18.4 (2005): 794-824. See p. 794. - _N. J. A. Sloane_, Apr 16 2014
M. Celaya and F. Ruskey, Morphic Words and Nested Recurrence Relations, arXiv preprint arXiv:1307.0153 [math.CO], 2013.
C. Deugau and F. Ruskey, Complete k-ary Trees and Generalized Meta-Fibonacci Sequences, J. Integer Seq., Vol. 12. [This is a later version than that in the GenMetaFib.html link]
C. Deugau and F. Ruskey, Complete k-ary Trees and Generalized Meta-Fibonacci Sequences
A. Erickson, A. Isgur, B. W. Jackson, F. Ruskey and S. M. Tanny, Nested recurrence relations with Conolly-like solutions, See Table 2.
Nathan Fox, A Slow Relative of Hofstadter's Q-Sequence, arXiv:1611.08244 [math.NT], 2016.
Nathan Fox, Trees, Fibonacci Numbers, and Nested Recurrences, Rutgers University Experimental Math Seminar, Mar 07, 2019.
Nathan Fox, Connecting Slow Solutions to Nested Recurrences with Linear Recurrent Sequences, arXiv:2203.09340 [math.CO], 2022.
The IMO Compendium, Problem 5, 22nd Canadian Mathematical Olympiad 1990.
Abraham Isgur, Mustazee Rahman, and Stephen Tanny, Solving non-homogeneous nested recursions using trees, Annals of Combinatorics 17.4 (2013): 695-710. See p. 695. - _N. J. A. Sloane_, Apr 16 2014
A. Isgur, R. Lech, S. Moore, S. Tanny, Y. Verberne, and Y. Zhang, Constructing New Families of Nested Recursions with Slow Solutions, SIAM J. Discrete Math., 30(2), 2016, 1128-1147. (20 pages); DOI:10.1137/15M1040505.
B. Jackson and F. Ruskey, Meta-Fibonacci Sequences, Binary Trees and Extremal Compact Codes
B. Jackson and F. Ruskey, Meta-Fibonacci Sequences, Binary Trees and Extremal Compact Codes, Electronic Journal of Combinatorics, 13 (2006), #R26, 13 pages.
Oliver Kullmann and Xishun Zhao, Parameters for minimal unsatisfiability: Smarandache primitive numbers and full clauses, arXiv preprint, arXiv:1505.02318 [cs.DM], 2015.
Thomas M. Lewis and Fabian Salinas, Optimal pebbling of complete binary trees and a meta-Fibonacci sequence, arXiv:2109.07328 [math.CO], 2021.
Ramin Naimi and Eric Sundberg, A Combinatorial Problem Solved by a Meta-Fibonacci Recurrence Relation, arXiv:1902.02929 [math.CO], 2019.
Index entries for Hofstadter-type sequences.
Index to sequences related to Olympiads.

Cf. A001511, A005185, A005187, A007843, A055938, A079559, A080578, A101925, A182105, A213714, A226222, A234016, A275363, A324473, A324475, A324477.

Callaghan et al. (2005)'s sequences T_{0,k}(n) for k=1 through 7 are A000012, A046699, A046702, A240835, A241154, A241155, A240830.

a046699 n = a046699_list !! (n-1)
a046699_list = 1 : 1 : zipWith (+) zs (tail zs) where
   zs = map a046699 $ zipWith (-) [2..] a046699_list
-- Reinhard Zumkeller, Jan 02 2012

[ n le 2 select 1 else Self(n - Self(n-1)) + Self(n-1 -Self(n-2)):n in [1..80]]; // Marius A. Burtea, Oct 17 2019

a := proc(n) option remember; if n <= 1 then return 1 end if; if n <= 2 then return 2 end if; return add(a(n - i + 1 - a(n - i)), i = 1 .. 2) end proc # Frank Ruskey and Chris Deugau (deugaucj(AT)uvic.ca)
a := proc(n) option remember; if n <= 2 then 1 else a(n - a(n-1)) + a(n-1 - a(n-2)); fi; end; # N. J. A. Sloane, Apr 16 2014

a[n_] := (k = 1; While[ !Divisible[(2*++k)!, 2^(n-1)]]; k); a[1] = a[2] = 1; Table[a[n], {n, 1, 72}] (* Jean-François Alcover, Oct 06 2011, after Benoit Cloitre *)
CoefficientList[ Series[1 + x/(1 - x)*Product[1 + x^(2^n - 1), {n, 6}], {x, 0, 80}], x] (* or *)
a[1] = a[2] = 1; a[n_] := a[n] = a[n - a[n - 1]] + a[n - 1 - a[n - 2]]; Array[a, 80] (* Robert G. Wilson v, Sep 08 2014 *)

a[1]:1$
a[2]:1$
a[n]:=a[n-a[n-1]]+a[n-1-a[n-2]]$
makelist(a[n],n,2,60); /* Martin Ettl, Oct 29 2012 */

a(n)=if(n<0,1,s=1;while((2*s)!%2^(n-1)>0,s++);s) \\ Benoit Cloitre, Jan 19 2007

from sympy import factorial
def a(n):
    if n<3: return 1
    s=1
    while factorial(2*s)%(2**(n - 1))>0: s+=1
    return s
print([a(n) for n in range(1, 101)]) # Indranil Ghosh, Jun 11 2017, after Benoit Cloitre

First differences seem to be A079559. - Vladeta Jovovic, Nov 30 2003. This is correct and not too hard to prove, giving the generating function x + x^2(1+x)(1+x^3)(1+x^7)(1+x^15).../(1-x). - Paul Boddington, Jul 30 2004
G.f.: x + x^2/(1-x) * Product_{n=1}^{infinity} (1 + x^(2^n-1)). - Frank Ruskey and Chris Deugau (deugaucj(AT)uvic.ca)
For n>=1, a(n)=w(n-1) where w(n) is the least k such that 2^n divides (2k)!. - Benoit Cloitre, Jan 19 2007
Conjecture: a(n+1) = a(n) + A215530(a(n) + n) for all n > 0. - Velin Yanev, Oct 17 2019
From Bernard Schott, Dec 03 2021: (Start)
a(n) <= a(n+1) <=  a(n) +1.
For n > 1, if a(n) is odd, then a(n+1) = a(n) + 1.
a(2^n+1) = 2^(n-1) + 1 for n > 0.
Results coming from the 5th problem proposed during the 22nd Canadian Mathematical Olympiad in 1990 (link IMO Compendium and Doob reference). (End)

A046702 a(n)=a(n-a(n-1))+a(n-1-a(n-2))+a(n-2-a(n-3)), n>3. a(1)=a(2)=a(3)=1.

Original entry on oeis.org

1, 1, 1, 3, 3, 3, 5, 5, 7, 5, 7, 7, 9, 9, 9, 11, 11, 13, 11, 15, 13, 17, 13, 17, 15, 19, 17, 19, 17, 21, 19, 23, 19, 23, 21, 25, 23, 25, 25, 27, 27, 27, 29, 29, 31, 29, 33, 31, 35, 31, 37, 33, 39, 33, 41, 35, 43, 35, 43, 37, 45, 39, 45, 39, 47, 41, 49, 41, 49, 43, 51, 45, 51, 45

Offset: 1

R. K. Guy

Sequence proposed by Reg Allenby.
Callaghan, Joseph, John J. Chew III, and Stephen M. Tanny. "On the behavior of a family of meta-Fibonacci sequences." SIAM Journal on Discrete Mathematics 18.4 (2005): 794-824. See T_{0,3} with initial values 1,1,1, as in Fig. 1.6. - N. J. A. Sloane, Apr 16 2014

N. J. A. Sloane, Table of n, a(n) for n = 1..20000
Index entries for Hofstadter-type sequences

Cf. A240833, A240834.

Callaghan et al. (2005)'s sequences T_{0,k}(n) for k=1 through 7 are A000012, A046699, A046702, A240835, A241154, A241155, A240830.

#T_s,k(n) from Callaghan et al. Eq. (1.6). - From N. J. A. Sloane, Apr 16 2014
s:=0; k:=3;
a:=proc(n) option remember; global s,k;
if n <= 2 then 1
elif n = 3 then 1
else
    add(a(n-i-s-a(n-i-1)),i=0..k-1);
fi; end;
t1:=[seq(a(n),n=1..100)];

a[n_] := a[n] = a[n-a[n-1]] + a[n-1-a[n-2]] + a[n-2-a[n-3]]; a[1] = a[2] = a[3] = 1; Array[a, 80] (* Jean-François Alcover, Dec 12 2016 *)

Corrected and extended by Michael Somos

A241154 a(n)=1 for n <= s+k; thereafter a(n) = Sum(a(n-i-s-a(n-i-1)),i=0..k-1) where s=0, k=5.

Original entry on oeis.org

1, 1, 1, 1, 1, 5, 5, 5, 5, 5, 9, 9, 9, 9, 13, 9, 13, 13, 17, 13, 17, 13, 17, 17, 21, 17, 21, 21, 21, 21, 25, 25, 25, 25, 25, 29, 29, 29, 29, 33, 29, 33, 33, 37, 33, 37, 33, 41, 37, 41, 37, 45, 37, 45, 41, 49, 41, 49, 41, 53, 45, 53, 45, 57, 45, 57, 49, 61, 49, 61, 49, 61, 53, 65, 53, 65, 57, 65, 57, 69, 61, 69, 61

Offset: 1

N. J. A. Sloane, Apr 16 2014

N. J. A. Sloane, Table of n, a(n) for n = 1..20000
Joseph Callaghan, John J. Chew III, and Stephen M. Tanny, On the behavior of a family of meta-Fibonacci sequences, SIAM Journal on Discrete Mathematics 18.4 (2005): 794-824. See Eq. (1.7).
Index entries for Hofstadter-type sequences

Callaghan et al. (2005)'s sequences T_{0,k}(n) for k=1 through 7 are A000012, A046699, A046702, A240835, A241154, A241155, A240830.

#T_s,k(n) from Callaghan et al. Eq. (1.7).
s:=0; k:=5;
a:=proc(n) option remember; global s,k;
if n <= s+k then 1
else
add(a(n-i-s-a(n-i-1)),i=0..k-1);
fi; end;
t1:=[seq(a(n),n=1..100)];

s = 0; k = 5; a[n_] := a[n] = If[n <= s + k, 1, Sum[a[n - i - s - a[n - i - 1]], {i, 0, k - 1}]]; Array[a, 100] (* Jean-François Alcover, Nov 10 2017 *)

A240835 a(n)=1 for n <= s+k; thereafter a(n) = Sum_{i=0..k-1} a(n-i-s-a(n-i-1)) where s=0, k=4.

Original entry on oeis.org

1, 1, 1, 1, 4, 4, 4, 4, 7, 7, 7, 10, 7, 10, 13, 10, 13, 13, 13, 16, 16, 16, 16, 16, 19, 19, 19, 22, 19, 22, 25, 22, 25, 25, 25, 28, 28, 28, 28, 31, 31, 31, 34, 31, 34, 37, 34, 37, 37, 34, 40, 40, 37, 43, 40, 40, 46, 43, 43, 46, 46, 46, 49, 49, 46, 52, 52, 49, 55, 52, 52, 58, 55, 55, 58, 55, 58, 61, 58, 61, 61, 61

Offset: 1

N. J. A. Sloane, Apr 16 2014

N. J. A. Sloane, Table of n, a(n) for n = 1..20000
Joseph Callaghan, John J. Chew III, and Stephen M. Tanny, On the behavior of a family of meta-Fibonacci sequences, SIAM Journal on Discrete Mathematics 18.4 (2005): 794-824. See Eq. (1.7) and Table 6.1
Index entries for Hofstadter-type sequences

Callaghan et al. (2005)'s sequences T_{0,k}(n) for k=1 through 7 are A000012, A046699, A046702, A240835, A241154, A241155, A240830.

#T_s,k(n) from Callaghan et al. Eq. (1.7).
s:=0; k:=4;
a:=proc(n) option remember; global s,k;
if n <= s+k then 1
else
    add(a(n-i-s-a(n-i-1)),i=0..k-1);
fi; end;
t1:=[seq(a(n),n=1..100)];

A240835[n_]:=A240835[n]=If[n<=4,1,Sum[A240835[n-i-A240835[n-i-1]],{i,0,3}]];
Array[A240835,100] (* Paolo Xausa, Dec 06 2023 *)

A241155 a(n)=1 for n <= s+k; thereafter a(n) = Sum_{i=0..k-1} a(n-i-s-a(n-i-1)) where s=0, k=6.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 6, 6, 6, 6, 6, 6, 11, 11, 11, 11, 11, 16, 11, 16, 16, 16, 21, 16, 21, 16, 21, 26, 21, 26, 21, 26, 26, 26, 31, 26, 31, 31, 31, 31, 31, 36, 36, 36, 36, 36, 36, 36, 41, 41, 41, 41, 41, 46, 41, 46, 46, 46, 51, 46, 51, 46, 51, 56, 51, 56, 51, 56, 56, 56, 61, 56, 61, 61, 61, 61, 61, 66, 66, 66, 66, 66

Offset: 1

N. J. A. Sloane, Apr 16 2014

nonn

N. J. A. Sloane, Table of n, a(n) for n = 1..20000
Joseph Callaghan, John J. Chew III, and Stephen M. Tanny, On the behavior of a family of meta-Fibonacci sequences, SIAM Journal on Discrete Mathematics 18.4 (2005): 794-824. See Eq. (1.7).
Index entries for Hofstadter-type sequences

Callaghan et al. (2005)'s sequences T_{0,k}(n) for k=1 through 7 are A000012, A046699, A046702, A240835, A241154, A241155, A240830.

#T_s,k(n) from Callaghan et al. Eq. (1.7).
s:=0; k:=6;
a:=proc(n) option remember; global s,k;
if n <= s+k then 1
else
add(a(n-i-s-a(n-i-1)),i=0..k-1);
fi; end;
t1:=[seq(a(n),n=1..100)];

A241155[n_]:=A241155[n]=If[n<=6,1,Sum[A241155[n-i-A241155[n-i-1]],{i,0,5}]];
Array[A241155,100] (* Paolo Xausa, Dec 06 2023 *)

cp's OEIS Frontend

A240831 Sequence U(n) arising from analysis of structure of A240830.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A240832 Sequence R(n) arising from analysis of structure of A240830.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A046699 a(1) = a(2) = 1, a(n) = a(n - a(n-1)) + a(n-1 - a(n-2)) if n > 2.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

Maxima

PARI

Python

Formula

A046702 a(n)=a(n-a(n-1))+a(n-1-a(n-2))+a(n-2-a(n-3)), n>3. a(1)=a(2)=a(3)=1.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A241154 a(n)=1 for n <= s+k; thereafter a(n) = Sum(a(n-i-s-a(n-i-1)),i=0..k-1) where s=0, k=5.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A240835 a(n)=1 for n <= s+k; thereafter a(n) = Sum_{i=0..k-1} a(n-i-s-a(n-i-1)) where s=0, k=4.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A241155 a(n)=1 for n <= s+k; thereafter a(n) = Sum_{i=0..k-1} a(n-i-s-a(n-i-1)) where s=0, k=6.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica