A153112 -id:A153112 - cp's OEIS frontend

A166493 A Per Bak sand pile collapse sequence using Hofstadter Q:A005185, of the A153112 form.

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

Offset: 0

Roger L. Bagula, Oct 15 2009

Cf. A153112, A005185.

f[0] = 1; f[1] = 1; f[2] = 1;
f[n_] := f[n] = If[Mod[Floor[Sum[f[i], {i, 0, n - 1}]/2], 2^(4 + Mod[n, 3])] == 0, 1 + Mod[n, 3], f[n - f[n - 1]] + f[n - f[n - 2]]];
a = Table[f[n], {n, 0, 200}]

A166497 A Per Bak sand pile collapse sequence using A147665 in the A153112 form.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 2, 2, 3, 2, 2, 3, 2, 2, 3, 2, 2, 4, 3, 2, 4, 3, 2, 4, 3, 2, 5, 1, 2, 2, 2, 2, 3, 2, 2, 4, 3, 2, 4, 3, 2, 4, 3, 2, 5, 4, 3, 5, 4, 2, 5, 5, 5, 5, 4, 3, 6, 3, 2, 4, 4, 4, 4, 3, 2, 5, 4, 3, 5, 5, 5, 6, 3, 2, 7, 3, 2, 4, 5, 6, 5, 4, 3, 4, 3, 2, 4, 3, 2, 4, 1, 2, 2, 2, 2, 3, 2, 2, 4, 3, 2, 4, 3, 2, 4

Offset: 0

Roger L. Bagula, Oct 15 2009

Per Bak, "How nature works, the science of self-organized criticality", Springer-Verlag, New York, 1996, pages 49-64

Cf. A153112, A147665.

f[0] = 1; f[1] = 1; f[2] = 1;
f[n_] := f[n] = If[Mod[Floor[Sum[f[i], {i, 0, n - 1}]/2], 2^(4 + Mod[n, 3])] == 1, 1 + Mod[n, 3], f[f[n - 1]] + If[Mod[n, 3] == 0, f[f[n/3]], If[Mod[n, 3] == 1, f[f[(n - 1)/3]], f[n - f[(n - 2)/3]]]]];
Table[f[n], {n, 0, 200}]

cp's OEIS Frontend

A166493 A Per Bak sand pile collapse sequence using Hofstadter Q:A005185, of the A153112 form.

Views

Author

Keywords

Crossrefs

Programs

Mathematica