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 A090652 #10 May 30 2014 09:47:13
%S A090652 7,17,37,47,49,67,97,107,119,127,137,157,167,197,227,257,259,277,289,
%T A090652 307,317,329,337,343,347,367,397,457,467,469,487,547,557,577,587,607,
%U A090652 617,629,647,677,679,727,749,757,787,797,799,827,833,857,877,887,889
%N A090652 Numbers all of whose prime factors end in 7.
%H A090652 Harvey P. Dale, <a href="/A090652/b090652.txt">Table of n, a(n) for n = 1..10000</a>
%t A090652 Select[Range[1000],Union[Mod[Transpose[FactorInteger[#]][[1]],10]]=={7}&] (* _Harvey P. Dale_, May 28 2014 *)
%o A090652 (PARI) numbers whose factors end in m endfactm(n,m) = { flag=0; for(x=2,n, y=factor(x); z=y[,1]; ln=length(z); for(j=1,ln, if(z[j]%10<>m,flag=0;break,flag=1) ); if(flag==1,print1(x",")) ) }
%K A090652 easy,nonn,base
%O A090652 1,1
%A A090652 _Cino Hilliard_, Dec 13 2003