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 A096183 #2 Mar 30 2012 17:31:02
%S A096183 1,2,10,22,46,76,148,232,352,487,727,991,1279,1643,2035,2455,3095,
%T A096183 3775,4495,5350,6250,7195,8515,9895,11335,12835,14551,16333,18181,
%U A096183 20095,22255,24487,26791,29167,32261,35446,38722,42089,45813,49635,53555
%N A096183 Index k in A095773 where a string of n identical values occurs.
%t A096183 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}]
%Y A096183 Cf. A095773.
%K A096183 nonn
%O A096183 1,2
%A A096183 _Robert G. Wilson v_, Jun 19 2004