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 A181978 #5 Apr 04 2012 13:36:56 %S A181978 4,6,8,14,25,27,29,31,34,42,44,50,53,61,63,65,70,78,80,82,88,90,93,95, %T A181978 117,125,127,136,138,141,143,145,147,149,151,153,155,157,159,163,172, %U A181978 177,183,191,193,207,213,224,226,229,235,237,247,249,251,254,266 %N A181978 Indices of primes in A181938. %F A181978 A000040(a(n)) = A181938(n). %t A181978 Select[Range[4,300], 1 == Mod[Prime[#],6] == Mod[Prime[#-1], 6] - 4 == Mod[Prime[#+1], 6] - 4&] %K A181978 nonn %O A181978 1,1 %A A181978 _Zak Seidov_, Apr 04 2012