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 A317492 #5 Jul 30 2018 22:16:07
%S A317492 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,26,28,29,
%T A317492 30,31,32,33,34,35,37,38,39,41,42,43,44,45,46,47,50,51,52,53,55,57,58,
%U A317492 59,60,61,62,63,64,65,66,67,68,69,70,71,73,74,75,76,77,78
%N A317492 Heinz numbers of fully normal integer partitions.
%C A317492 An integer partition is fully normal if either it is of the form (1,1,...,1) or its multiplicities span an initial interval of positive integers and, sorted in weakly decreasing order, are themselves fully normal.
%t A317492 primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t A317492 fulnrmQ[ptn_]:=With[{qtn=Sort[Length/@Split[ptn],Greater]},Or[ptn=={}||Union[ptn]=={1},And[Union[qtn]==Range[Max[qtn]],fulnrmQ[qtn]]]];
%t A317492 Select[Range[100],fulnrmQ[Reverse[primeMS[#]]]&]
%Y A317492 Cf. A055932, A056239, A181819, A182850, A296150, A305732, A317089, A317090, A317245, A317246, A317491, A317493.
%K A317492 nonn
%O A317492 1,2
%A A317492 _Gus Wiseman_, Jul 30 2018