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 A134579 #5 Sep 18 2015 03:41:03 %S A134579 1,4,729,256,95367431640625,0,311973482284542371301330321821976049, %T A134579 16777216,150094635296999121,0, %U A134579 3574335935197503226412197580625705154978327969466895714094061686977589739390331653361877238387305580817715435470601 %N A134579 Column products of tables A133232 and A133233. %F A134579 a(n) = if A014963(n)*A100994(n)-n >= 0 then n^(A014963(n)*A100994(n)-n) else 0. %e A134579 a(1) = 1^(1*1-1) = 1 %e A134579 a(2) = 2^(2*2-2) = 4 %e A134579 a(3) = 3^(3*3-3) = 729 %e A134579 a(4) = 4^(2*4-4) = 256 %e A134579 a(5) = 5^(5*5-5) = 95367431640625 %e A134579 a(6) = 6^(1*1-6) = 0 %p A134579 A100994 := proc(n) if nops(numtheory[factorset](n)) <> 1 then 1 ; else n ; fi ; end: A014963 := proc(n) if nops(numtheory[factorset](n)) <> 1 then 1 ; else op(1,op(1,ifactors(n)[2])) ; fi ; end: A134579 := proc(n) local e ; e := A014963(n)*A100994(n)-n ; if e >= 0 then n^e ; else 0 ; fi ; end: seq(A134579(n),n=1..13) ; # _R. J. Mathar_, Jan 30 2008 %Y A134579 Cf. A133232, A133233, A014963, A100994. %K A134579 nonn %O A134579 1,2 %A A134579 _Mats Granvik_, Jan 23 2008 %E A134579 More terms from _R. J. Mathar_, Jan 30 2008