cp's OEIS Frontend

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.

A179703 Numbers of the form p^6*q^2*r where p, q, and r are distinct primes.

This page as a plain text file.
%I A179703 #8 May 13 2013 01:49:24
%S A179703 2880,4032,4800,6336,7488,9408,9792,10944,11200,13248,14580,15680,
%T A179703 16704,17600,17856,20412,20800,21312,23232,23616,24768,27072,27200,
%U A179703 30400,30528,32076,32448,33984,34496,35136,36450,36800,37908,38592,38720
%N A179703 Numbers of the form p^6*q^2*r where p, q, and r are distinct primes.
%H A179703 T. D. Noe, <a href="/A179703/b179703.txt">Table of n, a(n) for n = 1..1000</a>
%H A179703 Will Nicholes, <a href="http://willnicholes.com/math/primesiglist.htm">Prime Signatures</a>
%t A179703 f[n_]:=Sort[Last/@FactorInteger[n]]=={1,2,6}; Select[Range[40000], f]
%o A179703 (PARI) list(lim)=my(v=List(),t1,t2);forprime(p=2, (lim\12)^(1/6), t1=p^6;forprime(q=2, sqrt(lim\t1), if(p==q, next);t2=t1*q^2;forprime(r=2, lim\t2, if(p==r||q==r, next);listput(v,t2*r)))); vecsort(Vec(v)) \\ _Charles R Greathouse IV_, Jul 24 2011
%K A179703 nonn
%O A179703 1,1
%A A179703 _Vladimir Joseph Stephan Orlovsky_, Jul 24 2010