login
A096184
Least index in A095773 which begins a string of n identical values.
0
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
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 19 2004
STATUS
approved