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 A316091 #10 Jun 25 2018 22:51:18 %S A316091 3,4,5,6,8,11,14,15,17,18,20,24,26,31,32,33,35,41,42,44,45,50,54,56, %T A316091 58,59,60,67,69,72,74,80,83,92,93,95,96,106,109,114,119,122,124,127, %U A316091 128,141,143,145,152,153,157,158,161,170,174,177,179,182,188,191 %N A316091 Heinz numbers of integer partitions of prime numbers. %C A316091 Also the union of prime-indexed rows of A215366. %C A316091 The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k). %e A316091 Sequence of all integer partitions of prime numbers begins (2), (1, 1), (3), (2, 1), (1, 1, 1), (5), (4, 1), (3, 2), (7), (2, 2, 1), (3, 1, 1), (2, 1, 1, 1), (6, 1). %t A316091 primeMS[n_] := If[n == 1, {}, Flatten[Cases[FactorInteger[n],{p_, k_} :> Table[PrimePi[p], {k}]]]]; Select[Range[100], PrimeQ[Total[primeMS[#]]] &] %Y A316091 Cf. A000041, A000607, A056239, A056768, A076610, A100118, A112798, A215366, A296150, A300383, A316092. %K A316091 nonn %O A316091 1,1 %A A316091 _Gus Wiseman_, Jun 24 2018