A087824 a(n) = number of times n occurs in A087817.

2, 2, 3, 4, 1, 5, 2, 6, 3, 7, 4, 1, 8, 5, 2, 9, 6, 3, 10, 1, 7, 4, 11, 2, 8, 5, 12, 3, 9, 6, 13, 4, 10, 7, 14, 5, 11, 8, 15, 1, 1, 6, 12, 9, 16, 2, 2, 7, 13, 10, 17, 3, 3, 8, 14, 11, 18, 4, 4, 9, 15, 12, 19, 5, 5, 10, 16, 13, 20, 6, 1, 6, 11, 17, 14, 21, 7, 2, 7, 12, 18, 15, 22, 1, 8, 3, 8, 13, 19

Offset

1,1

Links

Table of n, a(n) for n=1..89.

Mathematica

Conway[n_Integer?Positive] := Conway[n] =Conway[Conway[Conway[n-1]]] + Conway[n - Conway[n-1]]
Conway[1] = Conway[2] = 1
a=Table[Conway[n], {n, 1, 3000}];
mx=Max[a]
c=Table[Count[a, m-1, m], {m, 1, mx}]
d=Delete[c, 1]

Crossrefs

Cf. A087817.

Sequence in context: A330995 A104567 A347711 * A369475 A008951 A119473

Adjacent sequences: A087821 A087822 A087823 * A087825 A087826 A087827

Keyword

nonn

Author

Roger L. Bagula, Oct 06 2003

Status

approved