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 A079868 #6 Aug 11 2012 09:38:41
%S A079868 1,2,3,2,5,2,7,2,3,3,11,2,13,4,4,2,17,3,19,3,5,5,23,2,5,5,3,3,29,3,31,
%T A079868 2,6,6,6,2,37,6,6,3,41,3,43,4,4,7,47,2,7,4,7,4,53,3,7,3,8,8,59,3,61,8,
%U A079868 4,2,8,4,67,4,8,4,71,2,73,9,4,4,9,4,79,2,3,9,83,3,9,9,9,3,89,3,10,5,10,10
%N A079868 a(1)=1 and for n>1: round(n^(1/Omega(n))), where Omega(n) is the total number of prime factors of n (A001222).
%C A079868 A079866(n)<=a(n)<=A079870(n); A020639(n)<=a(n)<=A006530(n);
%C A079868 a(m)=A079866(m)=A079870(m) iff m is a prime power (A000961).
%t A079868 Join[{1},Table[Floor[n^(1/PrimeOmega[n])+1/2],{n,2,100}]] (* _Harvey P. Dale_, Aug 11 2012 *)
%Y A079868 Cf. A079869(n)=a(n)^A001222(n), A079881.
%K A079868 nonn
%O A079868 1,2
%A A079868 _Reinhard Zumkeller_, Jan 13 2003