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 A133812 #12 Jun 30 2025 16:52:28
%S A133812 1,2,3,4,5,6,7,8,9,11,12,13,15,16,17,19,23,24,25,27,29,30,31,32,35,36,
%T A133812 37,41,43,45,47,48,49,53,59,60,61,64,67,71,72,73,77,79,81,83,89,96,97,
%U A133812 101,103,105,107,109,113,120,121,125,127,128,131,135,137,139,143,144
%N A133812 Numbers that are primally tight and have weakly descending powers.
%C A133812 All numbers of the form p_1^k1*p_2^k2*...*p_n^k_n, where k1 >= k2 >= ... >= k_n and the p_i are n successive primes.
%C A133812 Differs from A073491 starting n=16.
%H A133812 Amiram Eldar, <a href="/A133812/b133812.txt">Table of n, a(n) for n = 1..10000</a>
%t A133812 aQ[n_] := Module[{f=FactorInteger[n]}, p=f[[;;,1]]; e=f[[;;,2]]; PrimePi[p[[-1]]]-PrimePi[p[[1]]] == Length[p]-1 && AllTrue[Differences[e], #<=0 &]]; Join[{1}, Select[Range[2, 144], aQ]] (* _Amiram Eldar_, Jun 20 2019 *)
%Y A133812 Cf. A025487, A087980, A073491, A133808-A133813, A025487.
%K A133812 nonn
%O A133812 1,2
%A A133812 _Olivier Gérard_, Sep 23 2007
%E A133812 Cross-references from _Charles R Greathouse IV_, Dec 04 2009