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 A179652 #5 Jun 20 2015 15:33:58 %S A179652 1,3,6,8,16,23,31,34,36,48,56,59,71,83,86,91,94,108,119,121,129,133, %T A179652 146,148,168,169,191,203,223,226,246,253,254,259,269,288,289,303,314, %U A179652 316,321,338,356,358,394,399,416,433,463,464,471,496,511,519,528,533,548 %N A179652 (A175600(n)-5)/48 or A112559(n)/3. %t A179652 A002144=Select[Range[5,100000,4],PrimeQ]; %t A179652 A175600=Select[A002144,MemberQ[A002144,(#-1)/4]&]; %t A179652 A179652=(A175600-5)/48 %Y A179652 Cf. A002144, A112559, A175600. %K A179652 nonn %O A179652 1,2 %A A179652 _Zak Seidov_, Jul 22 2010