login
A096183
Index k in A095773 where a string of n identical values occurs.
1
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
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 19 2004
STATUS
approved