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 A114130 #15 Mar 29 2021 05:25:55
%S A114130 8,9,25,32,49,121,125,128,169,243,289,343,361,529,841,961,1331,1369,
%T A114130 1681,1849,2048,2187,2197,2209,2809,3481,3721,4489,4913,5041,5329,
%U A114130 6125,6241,6859,6889,7921,8192,8575,9409,10201,10609,10976,11449,11881,11907
%N A114130 Numbers whose factorization involves only prime exponents, all different, and no number appears both as an exponent and as a prime factor.
%H A114130 Harvey P. Dale, <a href="/A114130/b114130.txt">Table of n, a(n) for n = 1..560</a>
%t A114130 pedQ[n_]:=Module[{fi=Transpose[FactorInteger[n]],a,b},a=fi[[1]];b = fi[[2]]; AllTrue[b,PrimeQ]&&Length[b]==Length[Union[b]]&&Intersection[ a,b]=={}]; Select[Range[12000],pedQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 24 2015 *)
%Y A114130 Subsequence of A062307.
%K A114130 nonn
%O A114130 1,1
%A A114130 _Jon Wild_, Feb 14 2006