A096183 Index k in A095773 where a string of n identical values occurs.

1, 2, 10, 22, 46, 76, 148, 232, 352, 487, 727, 991, 1279, 1643, 2035, 2455, 3095, 3775, 4495, 5350, 6250, 7195, 8515, 9895, 11335, 12835, 14551, 16333, 18181, 20095, 22255, 24487, 26791, 29167, 32261, 35446, 38722, 42089, 45813, 49635, 53555

Offset

1,2

Links

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

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++ ]; k]; Table[ f[n], {n, 42}]

Crossrefs

Cf. A095773.

Sequence in context: A331132 A032526 A294538 * A218612 A218548 A079605

Adjacent sequences: A096180 A096181 A096182 * A096184 A096185 A096186

Keyword

nonn

Author

Robert G. Wilson v, Jun 19 2004

Status

approved