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

Author

Robert G. Wilson v, Jun 19 2004

Keywords

• nonn

Crossrefs

Cf. A095773.

Programs

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}]