This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A096184 #2 Mar 30 2012 17:31:02 %S A096184 1,2,6,10,16,22,34,46,61,76,100,124,148,176,204,232,272,312,352,397, %T A096184 442,487,547,607,667,727,793,859,925,991,1063,1135,1207,1279,1370, %U A096184 1461,1552,1643,1741,1839,1937,2035,2140,2245,2350,2455,2583,2711,2839,2967,3095 %N A096184 Least index in A095773 which begins a string of n identical values. %F A096184 a(n)=A096183(n). %t A096184 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}] %Y A096184 Cf. A095773. %K A096184 nonn %O A096184 1,2 %A A096184 _Robert G. Wilson v_, Jun 19 2004