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
Keywords
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++ ]; a[k]]; Table[ f[n], {n, 51}]
Formula
a(n)=A096183(n).