A096184 Least index in A095773 which begins a string of n identical values.

1, 2, 6, 10, 16, 22, 34, 46, 61, 76, 100, 124, 148, 176, 204, 232, 272, 312, 352, 397, 442, 487, 547, 607, 667, 727, 793, 859, 925, 991, 1063, 1135, 1207, 1279, 1370, 1461, 1552, 1643, 1741, 1839, 1937, 2035, 2140, 2245, 2350, 2455, 2583, 2711, 2839, 2967, 3095

Offset

1,2

Links

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

Formula

a(n)=A096183(n).

Mathematica

a[1] = 1; a[n_] := a[n] = 1 + a[n - a[a[a[n - 1]]]]; f[n_] := Block[{k = 1}, While[a[k] != a[k + n - 1] || a[k] == a[k + n], k++ ]; a[k]]; Table[ f[n], {n, 51}]

Crossrefs

Cf. A095773.

Sequence in context: A354425 A294013 A183575 * A254829 A030511 A351635

Adjacent sequences: A096181 A096182 A096183 * A096185 A096186 A096187

Keyword

nonn

Author

Robert G. Wilson v, Jun 19 2004

Status

approved