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 A179474 #2 Mar 30 2012 17:26:35
%S A179474 1,8,10,18,24,29,32,37,43,56,57,61,63,67,73,74,79,84,87,100,105,110,
%T A179474 118,125,126,130,134,143,150,157,160,165,175,177,184,185,187,188,193,
%U A179474 200,205,215,230,233,235,242,248,256,258,261,262,265,272,276,278,279,290
%N A179474 a(n) = position of A045392(n) in A042997.
%C A179474 Positions of primes congruent to {2} mod 7 among primes congruent to {2,3,4,5,6} mod 7.
%t A179474 pr=Prime[Range[500]];A042997=Select[pr,1<Mod[ #,7]&];
%t A179474 A045392=Select[A042997,2==Mod[ #,7]&];
%t A179474 s=Flatten[Position[A042997,# ]&/@A045392]
%Y A179474 Cf. A042997 Primes congruent to {2, 3, 4, 5, 6} mod 7, A045392 Primes congruent to {2} mod 7.
%K A179474 nonn
%O A179474 1,2
%A A179474 _Zak Seidov_, Jul 16 2010