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 A368872 #6 Jan 15 2024 11:14:14
%S A368872 1,0,0,0,1,0,1,0,1,5,7,9,12,16,21,28,37,49,65,86,114,151,200,265,351,
%T A368872 2652,3769,5413,7713,11031,15778,22513,32222,46004,65766,94004,134283,
%U A368872 191992,274291,392041,560287,800615,1144320,1635193,2336976,3339800,4772784,6821096
%N A368872 Number of compositions (ordered partitions) of n into prime parts not greater than sqrt(n).
%p A368872 b:= proc(n, t) option remember; `if`(n=0, 1, add(
%p A368872 `if`(isprime(j), b(n-j, t), 0), j=1..min(n, t)))
%p A368872 end:
%p A368872 a:= n-> b(n, floor(sqrt(n))):
%p A368872 seq(a(n), n=0..47); # _Alois P. Heinz_, Jan 13 2024
%t A368872 Table[SeriesCoefficient[1/(1 - Sum[Boole[PrimeQ[k]] x^k, {k, 1, Floor[Sqrt[n]]}]), {x, 0, n}], {n, 0, 47}]
%Y A368872 Cf. A023360, A364526.
%K A368872 nonn
%O A368872 0,10
%A A368872 _Ilya Gutkovskiy_, Jan 08 2024