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 A180432 #2 Mar 30 2012 17:31:30
%S A180432 3,10,31,94,101,283,304,311,850,913,934,941,962,1011,2551,2740,2803,
%T A180432 2824,2831,2887,2915,3034,3041,3111,3132,7654,8221,8410,8473,8494,
%U A180432 8501,8662,8746,8774,8837,9103,9124,9131,9334,9341,9397,9411,9425,9495,9621
%N A180432 Start with 3. If a, b in sequence, so is ab+1.
%C A180432 The difference between any two terms is == 0 (mod 7).
%t A180432 f[s_List] := Select[ Union@ Join[s, Union[1 + Times @@@ Subsets[ Join[s, s], {2}]]], # < 10000 &]; Nest[f, {3}, 8]
%Y A180432 Cf. A009293.
%K A180432 nonn
%O A180432 1,1
%A A180432 _Robert G. Wilson v_, Sep 04 2010